burak / CPAN-MP3-M3U-Parser

MP3 playlist parser for Perl

Changed (Δ863 bytes):

raw changeset »

Build.PL (46 lines added, 12 lines removed)

Changes (3 lines added, 0 lines removed)

MANIFEST (1 lines added, 0 lines removed)

Makefile.PL (1 lines added, 0 lines removed)

lib/MP3/M3U/Parser.pm (1 lines added, 1 lines removed)

Up to file-list Build.PL:

1
1
use strict;
2
2
use Module::Build;
3
use File::Spec;
4
use IO::File;
3
5
4
Module::Build->new(
5
   module_name => 'MP3::M3U::Parser',
6
   license     => 'perl',
7
   requires    => {
8
      'File::Spec'     => 0,
9
      'IO::File'       => 0,
10
      'Cwd'            => 0,
11
      'Text::Template' => 0,
12
      'Test::More'     => '0.40',
13
   },
14
   dist_author => 'Burak Gursoy <burak@cpan.org>',
15
)->create_build_script;
6
my $class = Module::Build->subclass(
7
                class => 'MBSubclass',
8
                code  => raw_subclass(),
9
            );
10
11
my $mb = $class->new(
12
    module_name    => 'MP3::M3U::Parser',
13
    license        => 'perl',
14
    requires       => {
15
        'File::Spec'     => 0,
16
        'IO::File'       => 0,
17
        'Cwd'            => 0,
18
        'Text::Template' => 0,
19
    },
20
    build_requires => {
21
        'Test::More' => '0.40',
22
    },
23
    recommends     => {},
24
    sign           => 0,
25
    dist_author    => 'Burak Gursoy <burak@cpan.org>',
26
    create_license => 1,
27
    no_index       => {
28
        directory => [
29
            'tools',
30
            't',
31
        ]
32
    },
33
    meta_merge => {
34
        resources => {
35
            repository => 'http://bitbucket.org/burak/cpan-mp3-m3u-parser/',
36
        },
37
    },
38
);
39
40
$mb->create_build_script;
41
42
sub raw_subclass {
43
    my $file = File::Spec->catfile( 'tools', 'Build.pm' );
44
    my $FH   = IO::File->new;
45
    $FH->open( $file, 'r' ) or die "Can not open($file): $!";
46
    my $rv = do { local $/; <$FH> };
47
    close $FH;
48
    return $rv;
49
}

Up to file-list Changes:

@@ -2,6 +2,9 @@ Revision history for Perl extension MP3:
2
2
3
3
Time zone is GMT+2.
4
4
5
2.22 Sat Apr 18 06:23:24 2009
6
    => Update distro tools.
7
5
8
2.21 Sun Mar 29 08:20:01 2009
6
9
    => Fixed an issue related to network paths.
7
10
       Reported by Paul Miller <jettero@cpan.org>.

Up to file-list MANIFEST:

@@ -7,6 +7,7 @@ t/05-sub_html.t
7
7
t/06-sub_search.t
8
8
t/07-scalar_xml.t
9
9
t/08-scalar_html.t
10
tools/Build.pm
10
11
eg/m3u.cgi
11
12
test.m3u
12
13
Changes

Up to file-list Makefile.PL:

1
#!perl
1
2
use ExtUtils::MakeMaker;
2
3
3
4
WriteMakefile(

Up to file-list lib/MP3/M3U/Parser.pm:

@@ -11,7 +11,7 @@ use constant SONG => 4;
11
11
12
12
use constant MAXDATA => 4; # Maximum index number of the data table
13
13
14
$VERSION = '2.21';
14
$VERSION = '2.22';
15
15
16
16
sub new {
17
17
   # -parse_path -seconds -search -overwrite