Gecko [ www.leshallesdegournay.geraud-market.com ]

Name	Size	Permission	Date
API	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
Exception	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
FTP	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
HTTP	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
Kwalify	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
LWP	[ DIR ]	drwxr-xr-x	2026-08-17 16:10
Plugin	[ DIR ]	drwxr-xr-x	2019-06-17 23:11
Admin.pm	7.61 KB	-r--r--r--	2018-11-27 03:51
Author.pm	6.68 KB	-rw-r--r--	2026-08-05 21:35
Bundle.pm	9.03 KB	-rw-r--r--	2026-08-05 21:35
CacheMgr.pm	7.48 KB	-rw-r--r--	2026-08-05 21:35
Complete.pm	5.85 KB	-rw-r--r--	2026-08-05 21:35
Config.pm	9.87 KB	-rw-r--r--	2018-05-21 22:36
Config.pm.1500328734	10.07 KB	-rw-r--r--	2017-07-03 22:10
Config.pm.1505776020	10.11 KB	-rw-r--r--	2017-07-17 23:58
Config.pm.1506626567	9.9 KB	-rw-r--r--	2017-09-19 01:07
Config.pm.1508361445	9.8 KB	-rw-r--r--	2017-09-28 21:22
Config.pm.1508484266	9.86 KB	-rw-r--r--	2017-10-18 23:17
Config.pm.1508803791	9.86 KB	-rw-r--r--	2017-10-20 09:24
Config.pm.1509069141	9.86 KB	-rw-r--r--	2017-10-24 02:09
Config.pm.1509075030	9.83 KB	-rw-r--r--	2017-10-27 03:52
Config.pm.1509320658	9.83 KB	-rw-r--r--	2017-10-27 05:30
Config.pm.1509605174	9.83 KB	-rw-r--r--	2017-10-30 00:44
Config.pm.1509618004	9.83 KB	-rw-r--r--	2017-11-02 07:46
Config.pm.1510790326	9.84 KB	-rw-r--r--	2017-11-02 11:20
Config.pm.1511208441	9.93 KB	-rw-r--r--	2017-11-16 00:58
Config.pm.1511833575	9.93 KB	-rw-r--r--	2017-11-20 21:07
Config.pm.1512594277	9.98 KB	-rw-r--r--	2017-11-28 02:46
Config.pm.1513124948	9.95 KB	-rw-r--r--	2017-12-06 22:04
Config.pm.1513794700	9.88 KB	-rw-r--r--	2017-12-13 01:29
Config.pm.1515172034	9.86 KB	-rw-r--r--	2017-12-20 19:31
Config.pm.1515698556	9.81 KB	-rw-r--r--	2018-01-05 18:07
Config.pm.1516056180	9.76 KB	-rw-r--r--	2018-01-11 20:22
Config.pm.1516668819	9.72 KB	-rw-r--r--	2018-01-15 23:43
Config.pm.1518479917	9.82 KB	-rw-r--r--	2018-01-23 01:53
Config.pm.1518561930	9.82 KB	-rw-r--r--	2018-02-13 00:58
Config.pm.1521065949	9.82 KB	-rw-r--r--	2018-02-13 23:45
Config.pm.1521074184	9.81 KB	-rw-r--r--	2018-03-14 23:19
Config.pm.1521493458	9.81 KB	-rw-r--r--	2018-03-15 01:36
Config.pm.1521518627	9.28 KB	-rw-r--r--	2018-03-19 22:04
Config.pm.1526935016	9.28 KB	-rw-r--r--	2018-03-20 05:03
Debug.pm	2.05 KB	-rw-r--r--	2026-08-05 21:35
DeferredCode.pm	189 B	-rw-r--r--	2026-08-05 21:35
Distribution.pm	145.09 KB	-rw-r--r--	2026-08-05 21:35
Distroprefs.pm	10.84 KB	-rw-r--r--	2026-08-05 21:35
Distrostatus.pm	972 B	-rw-r--r--	2026-08-05 21:35
FTP.pm	41.19 KB	-rw-r--r--	2026-08-05 21:35
FirstTime.pm	66.98 KB	-rw-r--r--	2026-08-05 21:35
HandleConfig.pm	22.61 KB	-rw-r--r--	2026-08-05 21:35
Index.pm	21.43 KB	-rw-r--r--	2026-08-05 21:35
InfoObj.pm	6.75 KB	-rw-r--r--	2026-08-05 21:35
Kwalify.pm	3.35 KB	-rw-r--r--	2026-08-05 21:35
Mirrors.pm	14.55 KB	-rw-r--r--	2026-08-05 21:35
Module.pm	21.52 KB	-rw-r--r--	2026-08-05 21:35
Nox.pm	928 B	-rw-r--r--	2026-08-05 21:35
Plugin.pm	3.14 KB	-r--r--r--	2018-11-27 03:51
Prompt.pm	567 B	-rw-r--r--	2026-08-05 21:35
Queue.pm	6.31 KB	-rw-r--r--	2026-08-05 21:35
Shell.pm	68.45 KB	-rw-r--r--	2026-08-05 21:35
Tarzip.pm	15.69 KB	-rw-r--r--	2026-08-05 21:35
URL.pm	588 B	-rw-r--r--	2026-08-05 21:35
Version.pm	4.21 KB	-rw-r--r--	2026-08-05 21:35

Rename

package CPAN::Plugin;

use strict;
use warnings;

our $VERSION = '0.97';

require CPAN;

######################################################################

sub new {                                # ;
    my ($class, %params) = @_;

my $self = +{
        (ref $class ? (%$class) : ()),
        %params,
    };

$self = bless $self, ref $class ? ref $class : $class;

unless (ref $class) {
        local $_;
        no warnings 'once';
        $CPAN::META->use_inst ($_) for $self->plugin_requires;
    }

$self;
}

######################################################################
sub plugin_requires {                    # ;
}

######################################################################
sub distribution_object {                # ;
    my ($self) = @_;
    $self->{distribution_object};
}

######################################################################
sub distribution {                       # ;
    my ($self) = @_;

my $distribution = $self->distribution_object->id;
    CPAN::Shell->expand("Distribution",$distribution)
      or $self->frontend->mydie("Unknowns distribution '$distribution'\n");
}

######################################################################
sub distribution_info {                  # ;
    my ($self) = @_;

CPAN::DistnameInfo->new ($self->distribution->id);
}

######################################################################
sub build_dir {                          # ;
    my ($self) = @_;

my $build_dir = $self->distribution->{build_dir}
      or $self->frontend->mydie("Distribution has not been built yet, cannot proceed");
}

######################################################################
sub is_xs {                              #
    my ($self) = @_;

my @xs = glob File::Spec->catfile ($self->build_dir, '*.xs'); # quick try

unless (@xs) {
        require ExtUtils::Manifest;
        my $manifest_file = File::Spec->catfile ($self->build_dir, "MANIFEST");
        my $manifest = ExtUtils::Manifest::maniread($manifest_file);
        @xs = grep /\.xs$/, keys %$manifest;
    }

scalar @xs;
}

######################################################################

package CPAN::Plugin;

__END__

=pod

=head1 NAME

CPAN::Plugin - Base class for CPAN shell extensions

=head1 SYNOPSIS

package CPAN::Plugin::Flurb;
   use parent 'CPAN::Plugin';

sub post_test {
     my ($self, $distribution_object) = @_;
     $self = $self->new (distribution_object => $distribution_object);
     ...;
   }

=head1 DESCRIPTION

=head2 Alpha Status

The plugin system in the CPAN shell was introduced in version 2.07 and
is still considered experimental.

=head2 How Plugins work?

See L<CPAN/"Plugin support">.

=head1 METHODS

=head2 plugin_requires

returns list of packages given plugin requires for functionality.
This list is evaluated using C<< CPAN->use_inst >> method.

=head2 distribution_object

Get current distribution object.

=head2 distribution

=head2 distribution_info

=head2 build_dir

Simple delegatees for misc parameters derived from distribution

=head2 is_xs

Predicate to detect whether package contains XS.

=head1 AUTHOR

Branislav Zahradnik <barney@cpan.org>

=cut