Commits

Burak Gürsoy committed 2dac8a1

update distro tools

Comments (0)

Files changed (5)

 use strict;
 use Module::Build;
+use File::Spec;
+use IO::File;
 
-Module::Build->new(
-   module_name => 'MP3::M3U::Parser',
-   license     => 'perl',
-   requires    => {
-      'File::Spec'     => 0,
-      'IO::File'       => 0,
-      'Cwd'            => 0,
-      'Text::Template' => 0,
-      'Test::More'     => '0.40',
-   },
-   dist_author => 'Burak Gursoy <burak@cpan.org>',
-)->create_build_script;
+my $class = Module::Build->subclass(
+                class => 'MBSubclass',
+                code  => raw_subclass(),
+            );
+
+my $mb = $class->new(
+    module_name    => 'MP3::M3U::Parser',
+    license        => 'perl',
+    requires       => {
+        'File::Spec'     => 0,
+        'IO::File'       => 0,
+        'Cwd'            => 0,
+        'Text::Template' => 0,
+    },
+    build_requires => {
+        'Test::More' => '0.40',
+    },
+    recommends     => {},
+    sign           => 0,
+    dist_author    => 'Burak Gursoy <burak@cpan.org>',
+    create_license => 1,
+    no_index       => {
+        directory => [
+            'tools',
+            't',
+        ]
+    },
+    meta_merge => {
+        resources => {
+            repository => 'http://bitbucket.org/burak/cpan-mp3-m3u-parser/',
+        },
+    },
+);
+
+$mb->create_build_script;
+
+sub raw_subclass {
+    my $file = File::Spec->catfile( 'tools', 'Build.pm' );
+    my $FH   = IO::File->new;
+    $FH->open( $file, 'r' ) or die "Can not open($file): $!";
+    my $rv = do { local $/; <$FH> };
+    close $FH;
+    return $rv;
+}
 
 Time zone is GMT+2.
 
+2.22 Sat Apr 18 06:23:24 2009
+    => Update distro tools.
+
 2.21 Sun Mar 29 08:20:01 2009
     => Fixed an issue related to network paths.
        Reported by Paul Miller <jettero@cpan.org>.
 t/06-sub_search.t
 t/07-scalar_xml.t
 t/08-scalar_html.t
+tools/Build.pm
 eg/m3u.cgi
 test.m3u
 Changes
+#!perl
 use ExtUtils::MakeMaker;
 
 WriteMakefile(

lib/MP3/M3U/Parser.pm

 
 use constant MAXDATA => 4; # Maximum index number of the data table
 
-$VERSION = '2.21';
+$VERSION = '2.22';
 
 sub new {
    # -parse_path -seconds -search -overwrite