File Coverage

blib/lib/Module/Info/File.pm

Criterion	Covered	Total	%
statement	42	47	89.3
branch	5	8	62.5
condition	3	5	60.0
subroutine	13	13	100.0
pod	3	3	100.0
total	66	76	86.8

package Module::Info::File;

use strict;
use warnings;
use base 'Module::Info';
use Carp;
use File::Basename; # fileparse
use vars qw($VERSION);
use Module::Metadata;
use Try::Tiny; # try catch

$VERSION = '1.00';

sub new_from_file {
    my ( $proto, $filepath ) = @_;

    my $info = Module::Metadata->new_from_file($filepath);
    my ($filename, $dir, $suffix) = fileparse($filepath);

    return __PACKAGE__->new_from_data(
        name    => $info->name,
        dir     => $dir,
        file    => $filename,
        version => $info->version,
    );
}

sub new_from_data {
    my ( $class, %params ) = @_;

    my $self = bless {}, $class || ref $class;

    foreach ( keys %params ) {
        $self->{$_} = $params{$_} || undef;
    }

    if ( !$self->{'version'} ) {
        $self->{'version'} = $self->version();
    }

    return $self;
}

sub version {
    my ( $self, $version ) = @_;

    if ($version) {
        $self->{version} = $version;
        return 1;
    }

    if ( $self->{version} ) {
        return $self->{version};
    }
    else {
        try {
            my $version = $self->SUPER::version();

            if ($version) {
                return $version;
            } else {
                return undef;
            }
        } catch {
            return undef;
        };
    }
}

1;

__END__