/[gentoo-perl]/g-cpan/trunk/lib/Gentoo.pm
Gentoo

Diff of /g-cpan/trunk/lib/Gentoo.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

Revision 53 Revision 54
… …
7 7
8#### Load the other namespaces. 8#### Load the other namespaces.
9#### Gentoo.pm is the primary if these aren't accessed directly. 9#### Gentoo.pm is the primary if these aren't accessed directly.
10 10
11use Gentoo::Config; 11use Gentoo::Config;
12use Gentoo::Ebuild; 12use Gentoo::Portage;
13use Gentoo::CPAN; 13use Gentoo::CPAN;
14 14
15# These libraries were influenced and largely written by 15# These libraries were influenced and largely written by
16# Christian Hartmann <ian@gentoo.org> originally. All of the good 16# Christian Hartmann <ian@gentoo.org> originally. All of the good
17# parts are ian's - the rest is mcummings messing around. 17# parts are ian's - the rest is mcummings messing around.
… …
27our $VERSION = '0.01'; 27our $VERSION = '0.01';
28sub _init 28sub _init
29{ 29{
30 my ($self, %args) = @_; 30 my ($self, %args) = @_;
31 return if $self->{_init}{__PACKAGE__}++; 31 return if $self->{_init}{__PACKAGE__}++;
32 $self->Gentoo::Ebuild::_init(%args); 32 $self->Gentoo::Portage::_init(%args);
33 $self->Gentoo::Config::_init(%args); 33 $self->Gentoo::Config::_init(%args);
34} 34}
35 35
36sub UNIVERSAL::debug 36sub UNIVERSAL::debug
37{ 37{
… …
60{ 60{
61 my ($self) = @_; 61 my ($self) = @_;
62 return if $self->{DESTROY}{__PACKAGE__}++; 62 return if $self->{DESTROY}{__PACKAGE__}++;
63 63
64 $self->Gentoo::Config::DESTROY(); 64 $self->Gentoo::Config::DESTROY();
65 $self->Gentoo::Ebuild::DESTROY(); 65 $self->Gentoo::Portage::DESTROY();
66} 66}
67 67
681; 681;
69__END__ 69__END__
70# Below is stub documentation for your module. You'd better edit it! 70# Below is stub documentation for your module. You'd better edit it!
Legend:
Removed from v.53  
changed lines
  Added in v.54
  ViewVC Help
Powered by ViewVC 1.1.13