Module-Bundled-Files-0.03/0000755000175000017500000000000010317567542017226 5ustar pcampbellpcampbell00000000000000Module-Bundled-Files-0.03/t/0000755000175000017500000000000010317567542017471 5ustar pcampbellpcampbell00000000000000Module-Bundled-Files-0.03/t/TestNonOO/0000755000175000017500000000000010317567542021321 5ustar pcampbellpcampbell00000000000000Module-Bundled-Files-0.03/t/TestNonOO/testnonoo.txt0000644000175000017500000000020010317567542024102 0ustar pcampbellpcampbell00000000000000This file only exists in TestOO. Child classes should be able to find this file when they look for it. t-TestNonOO-testnonoo.txtModule-Bundled-Files-0.03/t/TestNonOO/data.txt0000644000175000017500000000011610317567542022771 0ustar pcampbellpcampbell00000000000000This is the content of the file. This is the second line. t-TestNonOO-data.txtModule-Bundled-Files-0.03/t/01-base-oo.t0000644000175000017500000000242310317567542021422 0ustar pcampbellpcampbell00000000000000#!/usr/bin/perl -w use strict; use Test::More tests => 15; use File::Spec::Functions; use lib 't'; use_ok('TestOO'); my $o = new TestOO; ok($o,'new test object'); isa_ok($o,'TestOO'); isa_ok($o,'Module::Bundled::Files'); cmp_ok($o->donothing,'eq','nothing done','own sub'); my $isvalid; my $notvalid = catfile('..','..','..','etc','hosts'); eval{$isvalid = $o->mbf_validate($notvalid);}; is($isvalid,undef,'mbf_valildate invalid'); my $valid = 'non-existant'; eval{$isvalid = $o->mbf_validate($valid);}; ok($isvalid,'mbf_validate valid'); my $dir; eval{$dir = $o->mbf_dir();}; cmp_ok($dir,'eq',catdir('t','TestOO'),'mbf_dir'); my $exists; eval{$exists = $o->mbf_exists($valid);}; ok(!$exists,'mbf_exists non-existant'); my $filename = 'data.txt'; eval{$exists = $o->mbf_exists($filename);}; ok($exists,'mbf_exists existant'); my $fullpath; eval{$fullpath = $o->mbf_path($filename);}; cmp_ok($fullpath,'eq',catfile('t','TestOO','data.txt'),'mbf_path'); { my $fh; eval{$fh = $o->mbf_open($filename);}; ok($fh,'mbf_open'); # autoclose file on scope exit } my $data; eval{$data = $o->mbf_read($filename);}; like($data,qr/content of the file/,'mbf_read data.txt 1'); like($data,qr/second line/,'mbf_read data.txt 2'); like($data,qr/t-TestOO-data.txt/,',mbf_read data.txt 3'); Module-Bundled-Files-0.03/t/TestOO.pm0000644000175000017500000000042110317567542021201 0ustar pcampbellpcampbell00000000000000#!/usr/bin/perl -w package TestOO; use strict; use base 'Module::Bundled::Files'; sub new() { my $class = shift; my $proto = ref($class) || $class; my $self = {}; bless $self, $class; return $self; } sub donothing() { return 'nothing done'; } 1;Module-Bundled-Files-0.03/t/03-base-oo-override.t0000644000175000017500000000275010317567542023244 0ustar pcampbellpcampbell00000000000000#!/usr/bin/perl -w use strict; use Test::More tests => 17; use File::Spec::Functions; use lib 't'; use_ok('TestOOOverride'); my $o = new TestOOOverride; ok($o,'new test object'); isa_ok($o,'TestOOOverride'); isa_ok($o,'TestOO'); isa_ok($o,'Module::Bundled::Files'); cmp_ok($o->donothing,'eq','nothing done','own sub'); my $isvalid; my $notvalid = catfile('..','..','..','etc','hosts'); eval{$isvalid = $o->mbf_validate($notvalid);}; is($isvalid,undef,'mbf_valildate invalid'); my $valid = 'non-existant'; eval{$isvalid = $o->mbf_validate($valid);}; ok($isvalid,'mbf_validate valid'); my $dir; eval{$dir = $o->mbf_dir();}; cmp_ok($dir,'eq',catdir('t','TestOOOverride'),'mbf_dir'); my $exists; eval{$exists = $o->mbf_exists($valid);}; ok(!$exists,'mbf_exists non-existant'); my $filename = 'data.txt'; eval{$exists = $o->mbf_exists($filename);}; ok($exists,'mbf_exists existant'); my $fullpath; eval{$fullpath = $o->mbf_path($filename);}; cmp_ok($fullpath,'eq',catfile('t','TestOOOverride','data.txt'),'mbf_path'); { my $fh; eval{$fh = $o->mbf_open($filename);}; ok($fh,'mbf_open'); # autoclose file on scope exit } my $data; eval{$data = $o->mbf_read($filename);}; like($data,qr/content of the file/,'mbf_read data.txt 1'); like($data,qr/second line/,'mbf_read data.txt 2'); like($data,qr/t-TestOO-Override-data.txt/,'mbf_read data.txt 3'); $data = undef; my $inherited = 'testoo.txt'; eval{$data = $o->mbf_read($inherited);}; like($data,qr/t-TestOO-testoo.txt/,'mbf_read inherited');Module-Bundled-Files-0.03/t/TestOOOverride/0000755000175000017500000000000010317567542022346 5ustar pcampbellpcampbell00000000000000Module-Bundled-Files-0.03/t/TestOOOverride/data.txt0000644000175000017500000000012410317567542024015 0ustar pcampbellpcampbell00000000000000This is the content of the file. This is the second line. t-TestOO-Override-data.txtModule-Bundled-Files-0.03/t/TestNonOOOverride/0000755000175000017500000000000010317567542023021 5ustar pcampbellpcampbell00000000000000Module-Bundled-Files-0.03/t/TestNonOOOverride/data.txt0000644000175000017500000000012710317567542024473 0ustar pcampbellpcampbell00000000000000This is the content of the file. This is the second line. t-TestNonOO-Override-data.txtModule-Bundled-Files-0.03/t/04-base-non-oo-override.t0000644000175000017500000000276410317567542024042 0ustar pcampbellpcampbell00000000000000#!/usr/bin/perl -w use strict; use Test::More tests => 16; use File::Spec::Functions; use lib 't'; use_ok('TestNonOOOverride'); use Module::Bundled::Files qw{:all}; my $o = new TestNonOOOverride; ok($o,'new test object'); isa_ok($o,'TestNonOOOverride'); isa_ok($o,'TestNonOO'); cmp_ok($o->donothing,'eq','nothing done','own sub'); my $isvalid; my $invalid = catfile('..','..','..','etc','hosts'); eval{$isvalid = mbf_validate($invalid);}; is($isvalid,undef,'mbf_valildate invalid'); my $valid = 'non-existant'; eval{$isvalid = mbf_validate($valid);}; ok($isvalid,'mbf_validate valid'); my $dir; eval{$dir = mbf_dir($o);}; cmp_ok($dir,'eq',catdir('t','TestNonOOOverride'),'mbf_dir'); my $exists; eval{$exists = mbf_exists($o,$valid);}; ok(!$exists,'mbf_exists non-existant'); my $filename = 'data.txt'; eval{$exists = mbf_exists($o,$filename);}; ok($exists,'mbf_exists existant'); my $fullpath; eval{$fullpath = mbf_path($o,$filename);}; cmp_ok($fullpath,'eq',catfile('t','TestNonOOOverride','data.txt'),'mbf_path'); { my $fh; eval{$fh = mbf_open($o,$filename);}; ok($fh,'mbf_open'); # autoclose file on scope exit } my $data; eval{$data = mbf_read($o,$filename);}; like($data,qr/content of the file/,'mbf_read data.txt 1'); like($data,qr/second line/,'mbf_read data.txt 2'); like($data,qr/t-TestNonOO-Override-data.txt/,'mbf_read data.txt 3'); $data = undef; my $inherited = 'testnonoo.txt'; eval{$data = mbf_read($o,$inherited);}; like($data,qr/t-TestNonOO-testnonoo.txt/,'mbf_read inherited');Module-Bundled-Files-0.03/t/TestNonOOOverride.pm0000644000175000017500000000012410317567542023354 0ustar pcampbellpcampbell00000000000000#!/usr/bin/perl -w package TestNonOOOverride; use strict; use base 'TestNonOO'; 1;Module-Bundled-Files-0.03/t/TestNonOO.pm0000644000175000017500000000041510317567542021657 0ustar pcampbellpcampbell00000000000000#!/usr/bin/perl -w package TestNonOO; use strict; use Module::Bundled::Files; sub new() { my $class = shift; my $proto = ref($class) || $class; my $self = {}; bless $self, $class; return $self; } sub donothing() { return 'nothing done'; } 1;Module-Bundled-Files-0.03/t/00-load.t0000644000175000017500000000026010317567542021010 0ustar pcampbellpcampbell00000000000000#!perl -T use Test::More tests => 1; BEGIN { use_ok( 'Module::Bundled::Files' ); } diag( "Testing Module::Bundled::Files $Module::Bundled::Files::VERSION, Perl $], $^X" ); Module-Bundled-Files-0.03/t/pod-coverage.t0000644000175000017500000000025410317567542022232 0ustar pcampbellpcampbell00000000000000#!perl -T use Test::More; eval "use Test::Pod::Coverage 1.04"; plan skip_all => "Test::Pod::Coverage 1.04 required for testing POD coverage" if $@; all_pod_coverage_ok(); Module-Bundled-Files-0.03/t/TestOO/0000755000175000017500000000000010317567542020646 5ustar pcampbellpcampbell00000000000000Module-Bundled-Files-0.03/t/TestOO/testoo.txt0000644000175000017500000000017210317567542022724 0ustar pcampbellpcampbell00000000000000This file only exists in TestOO. Child classes should be able to find this file when they look for it. t-TestOO-testoo.txtModule-Bundled-Files-0.03/t/TestOO/data.txt0000644000175000017500000000011310317567542022313 0ustar pcampbellpcampbell00000000000000This is the content of the file. This is the second line. t-TestOO-data.txtModule-Bundled-Files-0.03/t/pod.t0000644000175000017500000000021410317567542020435 0ustar pcampbellpcampbell00000000000000#!perl -T use Test::More; eval "use Test::Pod 1.14"; plan skip_all => "Test::Pod 1.14 required for testing POD" if $@; all_pod_files_ok(); Module-Bundled-Files-0.03/t/TestOOOverride.pm0000644000175000017500000000011610317567542022702 0ustar pcampbellpcampbell00000000000000#!/usr/bin/perl -w package TestOOOverride; use strict; use base 'TestOO'; 1;Module-Bundled-Files-0.03/t/02-base-non-oo.t0000644000175000017500000000245510317567542022220 0ustar pcampbellpcampbell00000000000000#!/usr/bin/perl -w use strict; use Test::More tests => 14; use File::Spec::Functions; use lib 't'; use_ok('TestNonOO','use non-object-oriented'); use Module::Bundled::Files qw{:all}; my $o = new TestNonOO; ok($o,'new test object'); isa_ok($o,'TestNonOO'); cmp_ok($o->donothing,'eq','nothing done','own sub'); my $isvalid; my $invalid = catfile('..','..','..','etc','hosts'); eval{$isvalid = mbf_validate($invalid);}; is($isvalid,undef,'mbf_valildate invalid'); my $valid = 'non-existant'; eval{$isvalid = mbf_validate($valid);}; ok($isvalid,'mbf_validate valid'); my $dir; eval{$dir = mbf_dir($o);}; cmp_ok($dir,'eq',catdir('t','TestNonOO'),'mbf_dir'); my $exists; eval{$exists = mbf_exists($o,$valid);}; ok(!$exists,'mbf_exists non-existant'); my $filename = 'data.txt'; eval{$exists = mbf_exists($o,$filename);}; ok($exists,'mbf_exists existant'); my $fullpath; eval{$fullpath = mbf_path($o,$filename);}; cmp_ok($fullpath,'eq',catfile('t','TestNonOO','data.txt'),'mbf_path'); { my $fh; eval{$fh = mbf_open($o,$filename);}; ok($fh,'mbf_open'); # autoclose file on scope exit } my $data; eval{$data = mbf_read($o,$filename);}; like($data,qr/content of the file/,'mbf_read data.txt 1'); like($data,qr/second line/,'mbf_read data.txt 2'); like($data,qr/t-TestNonOO-data.txt/,',mbf_read data.txt 3');Module-Bundled-Files-0.03/Changes0000644000175000017500000000261610317567542020526 0ustar pcampbellpcampbell00000000000000Fri Sep 2 23:56:34 BST 2005 Paul Campbell * Minor house keeping Fri Sep 2 22:03:41 BST 2005 Paul Campbell tagged 0.02 Fri Sep 2 21:58:01 BST 2005 Paul Campbell * Fix Bug: RT#14424 - %INC uses '/', even on Windows The %INC uses '/' as a directory delimiter on Windows, even though the OS delimiter is '\'. Thanks to Martin Thurn for the bug report. Wed Aug 31 13:01:35 BST 2005 Paul Campbell tagged 0.01 Wed Aug 31 13:00:14 BST 2005 Paul Campbell * Update Changes and README Sat Aug 27 23:38:31 BST 2005 Paul Campbell * Search for files in inherited Modules If a file is not provided by the derived Module that asks for it, then any ancestor Modules will be examined to see if they provide the file. This allows sub-classing and overridding of supplied files. Sat Aug 27 18:45:30 BST 2005 Paul Campbell * Revert Exporter syntax to pre-perl-5.8.3 compatible Thanks to Slaven Rezic for bug report. (http://groups.google.com/group/comp.lang.perl.modules/msg/2d79a98cf605718c?hl=en&) Fri Aug 26 23:42:54 BST 2005 Paul Campbell * POD Synopsis updated to correct module and function names Fri Aug 26 23:21:46 BST 2005 Paul Campbell * Imported module-bundled-files into Darcs repository Module-Bundled-Files-0.03/MANIFEST0000644000175000017500000000063710317567542020365 0ustar pcampbellpcampbell00000000000000Build.PL Changes lib/Module/Bundled/Files.pm Makefile.PL MANIFEST META.yml README t/00-load.t t/01-base-oo.t t/02-base-non-oo.t t/03-base-oo-override.t t/04-base-non-oo-override.t t/pod-coverage.t t/pod.t t/TestNonOO/data.txt t/TestNonOOOverride/data.txt t/TestNonOOOverride.pm t/TestNonOO.pm t/TestNonOO/testnonoo.txt t/TestOO/data.txt t/TestOOOverride/data.txt t/TestOOOverride.pm t/TestOO.pm t/TestOO/testoo.txt Module-Bundled-Files-0.03/lib/0000755000175000017500000000000010317567542017774 5ustar pcampbellpcampbell00000000000000Module-Bundled-Files-0.03/lib/Module/0000755000175000017500000000000010317567542021221 5ustar pcampbellpcampbell00000000000000Module-Bundled-Files-0.03/lib/Module/Bundled/0000755000175000017500000000000010317567542022576 5ustar pcampbellpcampbell00000000000000Module-Bundled-Files-0.03/lib/Module/Bundled/Files.pm0000644000175000017500000001505710317567542024206 0ustar pcampbellpcampbell00000000000000#!/usr/bin/perl -w package Module::Bundled::Files; use warnings; use strict; use File::Spec::Functions; use Class::ISA; =head1 NAME Module::Bundled::Files - Access files bundled with Module =head1 VERSION Version 0.03 =cut our $VERSION = '0.03'; =head1 SYNOPSIS Access files installed with your module without needing to specify an install location on the target filesystem. =head2 Setup In I: my $build = new Module::Build(...); map{$build->add_build_element($_);} qw{txt html tmpl}; # installs all .txt, .html and .tmpl files found in the lib/ tree Create files: Build.PL lib/ My/ Module.pm Module/ index.html data.txt form.tmpl =head2 Object-Oriented Interface use base qw{Module::Bundled::Files}; if($self->mbf_exists('data.txt')){...} my $filename = $self->mbf_path('data.txt'); # $filename = '/usr/local/share/perl/5.8.7/My/Module/data.txt'; open my $fh, '<', $filename or die $@; my $fh = $self->mbf_open('data.txt'); while(<$fh>) { ... } my $data = $self->mbf_read('data.txt'); =head2 Non-Object-Oriented Interface use Module::Bundled::Files qw{:all}; my $object = new Other::Object; if(mf_exists($other,'otherfile.txt')){...} my $filename = mbf_path($object,'otherfile.txt'); open my $fh, '<', $filename or die $@; my $fh = mbf_open($object,'otherfile.txt'); while(<$fh>) { ... } my $data = mbf_read($object,'otherfile.txt'); =cut =head1 DESCRIPTION This module provides an simple method of accessing files that need to be bundled with a module. For example, a module My::Module, which needs to access a seperate file I. In your development directory you would place your I in your I directory. lib/ My/ Module.pm Module/ data.txt Using I in your I file allows the I file to be installed in the same relative location. The file(s) can then be accessed using the I functions provided by this module. =head1 EXPORT The following functions can be exported if you will not be using the Object-Oriented Interface. :all mbf_validate mbf_dir mbf_exists mbf_path mbf_open mbf_read =cut use base 'Exporter'; our @EXPORT_OK = qw{mbf_validate mbf_dir mbf_exists mbf_path mbf_open mbf_read}; our %EXPORT_TAGS = (all => [@EXPORT_OK]); =head1 FUNCTIONS =head2 mbf_validate(FILENAME) Returns true if the filename does not contain illegal sequences (i.e. '..') Dies if filename is invalid. =cut sub mbf_validate($;$) { my $filename = shift; $filename = shift if ref($filename) && $filename->isa('Module::Bundled::Files'); die "Illegal reference to parent directory in filename '$filename'" if $filename =~ /\.\./; return 1; } =head2 mbf_dir([MODULE]) Returns the path of the directory where all files would be installed. The non-OO interface requires an object reference or module name as the only parameter. =cut sub mbf_dir(;$) { my $module = shift; $module = ref($module) if ref($module); # Convert My::Module into My/Module.pm # %INC uses '/' for delimiters, even on Windows my $shortpath = join('/',split(/::/,$module)).'.pm'; die "Short path not generated for $module" unless $shortpath; # Find the complete path for the module my $fullpath = $INC{$shortpath}; die "Full path not found in \%INC for '$shortpath'" unless $fullpath; # convert the '/' delimiters in %INC to those used by the OS $fullpath = catfile(split(m|/|,$fullpath)); # Strip the .pm to get the directory name $fullpath =~ s|\.pm$||; return $fullpath; } =head2 mbf_exists([MODULE,] FILENAME) Returns true of the named file has been bundled with the module. The non-OO interface requires an object reference or module name as the first parameter. =cut sub mbf_exists($;$) { my $module = shift; my $filename = shift; mbf_validate($module,$filename); my $dir = mbf_dir($module); my $fullpath = catfile($dir,$filename); return stat($fullpath) ? 1 : 0; } =head2 mbf_path([MODULE,] FILENAME) Returns the full path to the named file. Dies if the file does not exist. Will look for file in inherited classes (by reading @ISA) if the file is not found for the derived class. @ISA navigation is the same as per Perl searching for methods. See L for more details. The non-OO interface requires an object reference or module name as the first parameter. =cut sub mbf_path($;$) { my $module = shift; my $filename = shift; unless( mbf_exists($module,$filename) ) { my $found = 0; my $module_name = ref($module) || $module; foreach my $module_isa (Class::ISA::super_path($module_name)) { if( mbf_exists($module_isa,$filename) ) { $module = $module_isa; $found++; last; } } die "File not found: '$filename' for module '$module_name'" unless $found; } my $dir = mbf_dir($module); my $fullpath = catfile($dir,$filename); return $fullpath; } =head2 mbf_open([MODULE,] FILENAME) Returns an open file handle for the named file. Dies if the file does not exist. The non-OO interface requires an object reference or module name as the first parameter. =cut sub mbf_open($;$) { my $module = shift; my $filename = shift; my $fullpath = mbf_path($module,$filename); open my $fh, '<', $fullpath or die "Could not open file '$filename': ".$@; return $fh; } =head2 mbf_read([MODULE,] FILENAME) Returns the content of the named file. Dies if the file does not exist. The non-OO interface requires an object reference or module name as the first parameter. =cut sub mbf_read($;$) { my $module = shift; my $filename = shift; my $fh = mbf_open($module,$filename); my $content = ''; local $_; while(<$fh>){$content.=$_;} return $content; } =head1 AUTHOR Paul Campbell, C<< >> =head1 BUGS Please report any bugs or feature requests to C, or through the web interface at L. I will be notified, and then you will automatically be notified of progress on your bug as I make changes. #=head1 ACKNOWLEDGEMENTS =head1 COPYRIGHT & LICENSE Copyright 2005 Paul Campbell, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. =cut 1; # End of Module::Bundled::Files Module-Bundled-Files-0.03/META.yml0000644000175000017500000000055110317567542020500 0ustar pcampbellpcampbell00000000000000--- name: Module-Bundled-Files version: 0.03 author: - Paul Campbell abstract: Access files bundled with Module license: perl requires: Class::ISA: 0 File::Spec: 0 Module::Build: 0.26 Test::More: 0 provides: Module::Bundled::Files: file: lib/Module/Bundled/Files.pm version: 0.03 generated_by: Module::Build version 0.26 Module-Bundled-Files-0.03/README0000644000175000017500000001033410317567542020107 0ustar pcampbellpcampbell00000000000000NAME Module::Bundled::Files - Access files bundled with Module VERSION Version 0.03 SYNOPSIS Access files installed with your module without needing to specify an install location on the target filesystem. Setup In *Build.PL*: my $build = new Module::Build(...); map{$build->add_build_element($_);} qw{txt html tmpl}; # installs all .txt, .html and .tmpl files found in the lib/ tree Create files: Build.PL lib/ My/ Module.pm Module/ index.html data.txt form.tmpl Object-Oriented Interface use base qw{Module::Bundled::Files}; if($self->mbf_exists('data.txt')){...} my $filename = $self->mbf_path('data.txt'); # $filename = '/usr/local/share/perl/5.8.7/My/Module/data.txt'; open my $fh, '<', $filename or die $@; my $fh = $self->mbf_open('data.txt'); while(<$fh>) { ... } my $data = $self->mbf_read('data.txt'); Non-Object-Oriented Interface use Module::Bundled::Files qw{:all}; my $object = new Other::Object; if(mf_exists($other,'otherfile.txt')){...} my $filename = mbf_path($object,'otherfile.txt'); open my $fh, '<', $filename or die $@; my $fh = mbf_open($object,'otherfile.txt'); while(<$fh>) { ... } my $data = mbf_read($object,'otherfile.txt'); DESCRIPTION This module provides an simple method of accessing files that need to be bundled with a module. For example, a module My::Module, which needs to access a seperate file *data.txt*. In your development directory you would place your *data.txt* in your *lib/My/Module/* directory. lib/ My/ Module.pm Module/ data.txt Using *add_build_element(...)* in your *Build.PL* file allows the *data.txt* file to be installed in the same relative location. The file(s) can then be accessed using the *mbf_** functions provided by this module. EXPORT The following functions can be exported if you will not be using the Object-Oriented Interface. :all mbf_validate mbf_dir mbf_exists mbf_path mbf_open mbf_read FUNCTIONS mbf_validate(FILENAME) Returns true if the filename does not contain illegal sequences (i.e. '..') Dies if filename is invalid. mbf_dir([MODULE]) Returns the path of the directory where all files would be installed. The non-OO interface requires an object reference or module name as the only parameter. mbf_exists([MODULE,] FILENAME) Returns true of the named file has been bundled with the module. The non-OO interface requires an object reference or module name as the first parameter. mbf_path([MODULE,] FILENAME) Returns the full path to the named file. Dies if the file does not exist. Will look for file in inherited classes (by reading @ISA) if the file is not found for the derived class. @ISA navigation is the same as per Perl searching for methods. See Class::ISA for more details. The non-OO interface requires an object reference or module name as the first parameter. mbf_open([MODULE,] FILENAME) Returns an open file handle for the named file. Dies if the file does not exist. The non-OO interface requires an object reference or module name as the first parameter. mbf_read([MODULE,] FILENAME) Returns the content of the named file. Dies if the file does not exist. The non-OO interface requires an object reference or module name as the first parameter. AUTHOR Paul Campbell, "" BUGS Please report any bugs or feature requests to "bug-module-bundled-files@rt.cpan.org", or through the web interface at . I will be notified, and then you will automatically be notified of progress on your bug as I make changes. #=head1 ACKNOWLEDGEMENTS COPYRIGHT & LICENSE Copyright 2005 Paul Campbell, all rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself. Module-Bundled-Files-0.03/Makefile.PL0000644000175000017500000000104310317567542021176 0ustar pcampbellpcampbell00000000000000# Note: this file was auto-generated by Module::Build::Compat version 0.03 use ExtUtils::MakeMaker; WriteMakefile ( 'NAME' => 'Module::Bundled::Files', 'VERSION_FROM' => 'lib/Module/Bundled/Files.pm', 'PREREQ_PM' => { 'Class::ISA' => '0', 'File::Spec' => '0', 'Module::Build' => '0.26', 'Test::More' => '0' }, 'INSTALLDIRS' => 'site', 'PL_FILES' => {} ) ; Module-Bundled-Files-0.03/Build.PL0000644000175000017500000000116210317567542020522 0ustar pcampbellpcampbell00000000000000use strict; use warnings; use Module::Build; my $builder = Module::Build->new( module_name => 'Module::Bundled::Files', license => 'perl', dist_author => 'Paul Campbell ', dist_version_from => 'lib/Module/Bundled/Files.pm', requires => { 'Module::Build' => 0.26, # add_build_element() appears in 0.2607 'Test::More' => 0, 'File::Spec' => 0, 'Class::ISA' => 0, }, create_makefile_pl => 'traditional', add_to_cleanup => [ 'Module-Bundled-Files-*' ], ); $builder->create_build_script();