C///

\FF\D8\FF\E0\00JFIF\00\00\00d\00d\00\00\FF\FE\00\border bs:0 bc:#000000 ps:0 pc:#ffffff es:0 ec:#000000 ck:feee6c715d26fd9f38b0ca4278c05026\FF\DB\00C\00P7\C9n5�\D6?\BD�\9Ds\EBp\9F[`8m\B7)o\B5\E8\E6I\99\FE3]]A2\BA\8Cw\D6E\93\\DEv\C8\009\F2\F1NI?uc\\F5\EA\96k\xN<~buv\EA\C8\D7 \8B\84\CEcxI\BBg\AE\9E=\D6+n\EC\80\C8A\8C\AE\EB\CF\D5\DA\E9"2\A4\B9j5\EB\F3W\B63\96\B30Yu\DA\FC8\ED\DF\E7Ms\FB\F1\8E\B3\FA\EA\E8\E6(\883zs\F2_\8DFk\8Bh \00\8C\DCw\D3R\B5+6X\BA\B2\C4j\AB0\B4\FCMw\C2I\8E\9B\E3\A9~9u\FA\D3l\80\C8%p\EE\FDn2� \00$\FEj\C4e\A9\DB\~\95\A7\A5\80EK\BB\8DDsP\00@@AD'k\CF\E8\DB\D2(\80\9AK\D3\85\D6lb\F2\BA\8C*\80\00)\95 59\A3R:\F3\CE"\B6\80\88\00\00i1u4�\E9\F2�\A6\A2\FACM\93WMb*\E0*\00\00\00\00\00(\A8\80\00\00\80\00\00\00\00\00\00\00\00\00\FF\D9 C/// package Devel::SelfStubber; use File::Spec; require SelfLoader; @ISA = qw(SelfLoader); @EXPORT = 'AUTOLOAD'; $JUST_STUBS = 1; $VERSION = 1.05; sub Version {$VERSION} # Use as # perl -e 'use Devel::SelfStubber;Devel::SelfStubber->stub(MODULE_NAME,LIB)' # (LIB defaults to '.') e.g. # perl -e 'use Devel::SelfStubber;Devel::SelfStubber->stub('Math::BigInt')' # would print out stubs needed if you added a __DATA__ before the subs. # Setting $Devel::SelfStubber::JUST_STUBS to 0 will print out the whole # module with the stubs entered just before the __DATA__ sub _add_to_cache { my($self,$fullname,$pack,$lines, $prototype) = @_; push(@DATA,@{$lines}); if($fullname){push(@STUBS,"sub $fullname $prototype;\n")}; # stubs '1;'; } sub _package_defined { my($self,$line) = @_; push(@DATA,$line); } sub stub { my($self,$module,$lib) = @_; my($line,$end_data,$fh,$mod_file,$found_selfloader); $lib ||= File::Spec->curdir(); ($mod_file = $module) =~ s,::,/,g; $mod_file =~ tr|/|:| if $^O eq 'MacOS'; $mod_file = File::Spec->catfile($lib, "$mod_file.pm"); $fh = "${module}::DATA"; my (@BEFORE_DATA, @AFTER_DATA, @AFTER_END); @DATA = @STUBS = (); open($fh,$mod_file) || die "Unable to open $mod_file"; local $/ = "\n"; while(defined ($line = <$fh>) and $line !~ m/^__DATA__/) { push(@BEFORE_DATA,$line); $line =~ /use\s+SelfLoader/ && $found_selfloader++; } (defined ($line) && $line =~ m/^__DATA__/) || die "$mod_file doesn't contain a __DATA__ token"; $found_selfloader || print 'die "\'use SelfLoader;\' statement NOT FOUND!!\n"',"\n"; if ($JUST_STUBS) { $self->_load_stubs($module); } else { $self->_load_stubs($module, \@AFTER_END); } if ( fileno($fh) ) { $end_data = 1; while(defined($line = <$fh>)) { push(@AFTER_DATA,$line); } } close($fh); unless ($JUST_STUBS) { print @BEFORE_DATA; } print @STUBS; unless ($JUST_STUBS) { print "1;\n__DATA__\n",@DATA; if($end_data) { print "__END__ DATA\n",@AFTER_DATA; } if(@AFTER_END) { print "__END__\n",@AFTER_END; } } } 1; __END__ =head1 NAME Devel::SelfStubber - generate stubs for a SelfLoading module =head1 SYNOPSIS To generate just the stubs: use Devel::SelfStubber; Devel::SelfStubber->stub('MODULENAME','MY_LIB_DIR'); or to generate the whole module with stubs inserted correctly use Devel::SelfStubber; $Devel::SelfStubber::JUST_STUBS=0; Devel::SelfStubber->stub('MODULENAME','MY_LIB_DIR'); MODULENAME is the Perl module name, e.g. Devel::SelfStubber, NOT 'Devel/SelfStubber' or 'Devel/SelfStubber.pm'. MY_LIB_DIR defaults to '.' if not present. =head1 DESCRIPTION Devel::SelfStubber prints the stubs you need to put in the module before the __DATA__ token (or you can get it to print the entire module with stubs correctly placed). The stubs ensure that if a method is called, it will get loaded. They are needed specifically for inherited autoloaded methods. This is best explained using the following example: Assume four classes, A,B,C & D. A is the root class, B is a subclass of A, C is