File Coverage

blib/lib/Module/Install/ORLite2Pod.pm

Criterion	Covered	Total	%
statement	18	32	56.2
branch	0	8	0.0
condition			n/a
subroutine	6	7	85.7
pod	0	1	0.0
total	24	48	50.0

package Module::Install::ORLite2Pod;

use 5.006001;
use strict;
use warnings;
use Module::Install::Base ();
use Params::Util;
use ORLite::Pod;

our @ISA     = qw(Module::Install::Base);
our $VERSION = '1.000';
$VERSION =~ s/_//ms;

sub orlite2pod {
    my $self = shift;
    return if not $Module::Install::AUTHOR;

    my ( $from, $to, $author, $email, $year ) = @_;

    #die unless things are defined?

    unless ( -d $to ) {
        die("Failed to find $to directory");
    }
    unshift @INC, $to;

    unless ( Params::Util::_CLASS($from) ) {
        usage();
    }
    eval "use $from { show_progress => 1 };";
    if ($@) {
        die("Failed to load $from: $@");
    }

    my $generator = ORLite::Pod->new(
        trace  => 1,
        from   => $from,
        to     => $to,
        author => $author,
        email  => $email,
        year   => $year
    );

    $generator->run;

    return 1;
} ## end sub orlite2pod

1;
__END__