File Coverage

lib/Pod/Html/HtmlTree.pm

Criterion	Covered	Total	%
statement	84	96	87.5
branch	9	10	90.0
condition	8	10	80.0
subroutine	17	19	89.4
pod	0	8	0.0
total	118	143	82.5

package Pod::Html::HtmlTree;

use strict;
use Pod::Html;
use File::Find;
use File::Path;
use File::Basename;
use List::Util qw/first/;
use Data::Dumper;
our $VERSION = 0.92;

sub new {
    my $class = shift;
    my $self  = shift || {};

    # default setting.
    $self->{pod_exts}  =  [ 'pm' ,'pl' ,'cgi','pod' ];
    $self->{mask_dir}  =  0775;
    $self->{mask_html} =  0664;

    bless $self , $class;
    return $self;
}

sub create {
    my $self = shift;

    my $paths_ref = $self->_get_paths();
    my $umask = umask 0000;

    for my $file_ref ( @{ $paths_ref } ) {
        if ( !-d dirname( $file_ref->{outfile} ) ) {
            mkpath( dirname( $file_ref->{outfile} ) , 0 , $self->{mask_dir} ) ;
        }
         $self->{args} =  $self->{args} || [];
        my @args = @{ $self->{args} } ;
        push ( @args , '--infile='  . $file_ref->{infile}  );
        push ( @args , '--outfile=' . $file_ref->{outfile} );

        pod2html( @args );
        chmod $self->{mask_html} , $file_ref->{outfile} ;
    }
    unlink './pod2htmd.tmp';
    unlink './pod2htmi.tmp';

    umask $umask;
    return $paths_ref;
}

sub args {
    my $self = shift;
    my $arg  = shift;

    $self->{args} = [];

    foreach my $key ( keys %{ $arg } ) {
        my $value = $arg->{$key} eq '0' ? "--$key" :  "--$key=$arg->{$key}" ;
        push @{ $self->{args} } , $value ;
    }
}

#{{{ setter
sub pod_exts {
    my $self          = shift;
    $self->{pod_exts} = shift;
}
sub mask_dir {
    my $self          = shift;
    $self->{mask_dir} = shift;
}

sub mask_html {
    my $self           = shift;
    $self->{mask_html} = shift;
}

sub indir {
    my $self       = shift;
    $self->{indir} = shift;
}

sub outdir {
    my $self        = shift;
    $self->{outdir} = shift;
}

#}}}

#{{{ PRIVATE
sub _get_paths {
    my $self = shift;
    my @infiles = ();
    my @paths   = ();
    File::Find::find(
        sub {
            my $file_name = $_;
            if (!-d $_ && $self->_is_ok_ext( $file_name ) ) {
                push @infiles , $File::Find::name ;
            }
        },
        $self->{indir}
    );

    # set { outfile , infile } in array
    for my $infile ( @infiles ) {
        # get ext
        my @splited_file_by_dot = split /\./ ,  $infile  ;
        my $ext                 = $splited_file_by_dot[-1];

        # get outfile
        my $outfile = $infile;
        my $os = fileparse_set_fstype();
        if( $os eq 'MSWin32' || $os eq 'DOS' ) {
            my $indir   = $self->{indir};
            my $outdir  = $self->{outdir};
            $outfile    =~ s/\\/\//g;
            $indir      =~ s/\\/\//g;
            $outdir     =~ s/\\/\//g;
            $outfile    =~ s/$indir/$outdir/;
            $outfile    =~ s/\.$ext/\.html/;
            $outfile    =~ s/\//\\/g;
        }
        else {
            $outfile    =~ s/$self->{indir}/$self->{outdir}/;
            $outfile    =~ s/\.$ext/\.html/;
        }

        # make file hash
        my $file_ref = {
            infile => $infile ,
            outfile => $outfile ,
        };
        push @paths , $file_ref ;
    };

    return \@paths;
}

sub _is_ok_ext {
    my $self      = shift;
    my $file_name = shift;

    my $find = first { $file_name =~ /\.$_$/} @{ $self->{pod_exts} };
    return $find ? 1 : 0 ;
}
#}}}
1;


__END__