File Coverage

blib/lib/Module/Build/Parse/Yapp.pm

Criterion	Covered	Total	%
statement	26	42	61.9
branch	0	2	0.0
condition			n/a
subroutine	8	11	72.7
pod	0	2	0.0
total	34	57	59.6

package Module::Build::Parse::Yapp;

use strict;
use warnings;
use base 'Module::Build';

our $VERSION = '0.1.2'; # VERSION
# ABSTRACT: build Parse::Yapp parsers from source

use File::Find;
use File::Path qw( make_path );
use File::Spec::Functions qw( catdir splitdir );
use Parse::Yapp;

sub new {
    my $self = shift;
    my %args = @_;
    $self->SUPER::new( %args );
}

sub process_yp_files {
    my $self = shift;

    find( { wanted => \&_find_parser, no_chdir => 1 }, 'lib' );
}

sub _find_parser {
    return unless /\.yp$/;

    my $pmfile = $_;
    $pmfile =~ s/\.yp$/.pm/;

    my @path = splitdir( $File::Find::name );
    my @pmpath = my @namespace = @path;

    unshift @pmpath, 'blib';
    $pmpath[-1] =~ s/\.yp$/.pm/;

    shift @namespace;
    $namespace[-1] =~ s/\.yp$//;

    make_path( catdir( @pmpath[0..$#pmpath-1] ) );
    _make_parser( $File::Find::name,
                  catdir( @pmpath ),
                  join '::', @namespace );
}

sub _make_parser {
    my( $inputfile, $outputfile, $classname ) = @_;

    my $parser = Parse::Yapp->new( inputfile => $inputfile );
    open( my $out, '>', $outputfile );
    print $out $parser->Output( classname => $classname );
    close $out;
}

1;

__END__