File Coverage

lib/Perl/Metrics/Simple/Output.pm

Criterion	Covered	Total	%
statement	13	26	50.0
branch	1	2	50.0
condition	1	3	33.3
subroutine	4	7	57.1
pod	0	4	0.0
total	19	42	45.2

package Perl::Metrics::Simple::Output;

use strict;
use warnings;

use Carp qw();

our $VERSION = 'v1.0.3';

sub new {
    my ( $class, $analysis ) = @_;

    if ((! ref $analysis) && ($analysis->isa('Perl::Metrics::Simple::Analysis')) ) {
        Carp::confess('Did not pass a Perl::Metrics::Simple::Analysis object.');
    }

    my $self = bless {
        _analysis => $analysis,
    }, $class;

    return $self;
}

sub analysis {
    my ($self) = @_;
    return $self->{'_analysis'};
}

sub make_report {
    Carp::confess('Use one of the sub-classes, e.g. Perl::Metrics::Simple::Output::PlainText');
}

sub make_list_of_subs {
    my ($self) = @_;

    my $analysis = $self->analysis();

    my @main_from_each_file
        = map { $_->{main_stats} } @{ $analysis->file_stats() };
    my @sorted_all_subs = reverse sort { $a->{'mccabe_complexity'} <=> $b->{'mccabe_complexity'} } ( @{ $analysis->subs() }, @main_from_each_file );

    return [ \@main_from_each_file, \@sorted_all_subs ];
}

1;    # Keep Perl happy, snuggy, and warm.

__END__