[Module-build-checkins] Module-Build/lib/Module/Build Base.pm,1.340.2.6,1.340.2.7

[Ken W. <kwi...@us...>]

Update of /cvsroot/module-build/Module-Build/lib/Module/Build
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv20547/lib/Module/Build

Modified Files:
      Tag: release-0_26_branch
	Base.pm 
Log Message:
Create an instance() method

Index: Base.pm
===================================================================
RCS file: /cvsroot/module-build/Module-Build/lib/Module/Build/Base.pm,v
retrieving revision 1.340.2.6
retrieving revision 1.340.2.7
diff -C2 -d -r1.340.2.6 -r1.340.2.7
*** Base.pm	12 Dec 2004 04:09:43 -0000	1.340.2.6
--- Base.pm	12 Dec 2004 16:49:48 -0000	1.340.2.7
***************
*** 14,17 ****
--- 14,21 ----
  use Text::ParseWords ();
  
+ # We use this to store the most-recently created M::B objects.
+ # Typically there's only one.
+ my @INSTANCE;
+ 
  #################### Constructors ###########################
  sub new {
***************
*** 30,36 ****
--- 34,46 ----
    $self->dist_version;
  
+   push @INSTANCE, $self;
    return $self;
  }
  
+ sub instance {
+   die "No new Module::Build objects have been created in this process" unless @INSTANCE;
+   return $INSTANCE[-1];
+ }
+ 
  sub resume {
    my $self = shift()->_construct(@_);