File Coverage

blib/lib/Perl/Metrics/Lite.pm

Criterion	Covered	Total	%
statement	36	39	92.3
branch	2	4	50.0
condition			n/a
subroutine	8	9	88.8
pod	2	3	66.6
total	48	55	87.2

package Perl::Metrics::Lite;
use strict;
use warnings;

use Perl::Metrics::Lite::FileFinder;
use Perl::Metrics::Lite::Report::Text;
use Perl::Metrics::Lite::Analysis;
use Perl::Metrics::Lite::Analysis::File;

our $VERSION = '0.091';

sub new {
    my ( $class, %args ) = @_;
    my $self = bless( {}, $class );
    my $report_module
        = exists $args{report_module}
        ? $args{report_module}
        : Perl::Metrics::Lite::Report::Text->new;
    $self->{report_module} = $report_module;
    return $self;
}

sub analyze_files {
    my ( $self, @dirs_and_files ) = @_;
    my @results = ();
    my @objects = grep { ref $_ } @dirs_and_files;
    @dirs_and_files = grep { not ref $_ } @dirs_and_files;
    my $perl_file_finder = Perl::Metrics::Lite::FileFinder->new;
    foreach my $file (
        (   scalar(@dirs_and_files)
            ? @{ $perl_file_finder->find_files(@dirs_and_files) }
            : ()
        ),
        @objects
        )
    {
        my $file_analysis
            = Perl::Metrics::Lite::Analysis::File->new( path => $file );
        push @results, $file_analysis;
    }
    my $analysis = Perl::Metrics::Lite::Analysis->new( \@results );
    return $analysis;
}

sub report {
    my ( $self, $analysis ) = @_;
    my $report_module = $self->{report_module};
    $report_module->report($analysis);
}

1;

__END__