gistfile1.pl

use strict;
use warnings;

package Code::Statistics::Metric::ccomp;

# ABSTRACT: measures the cyclomatic complexity of a target

use Moose;
extends 'Code::Statistics::Metric';

use Perl::Metrics::Simple::Analysis::File;

=head2 measure
    Returns the cyclomatic complexity of the given target.
=cut

sub measure {
    my ( $class, $target ) = @_;

    my $s = bless {}, 'Perl::Metrics::Simple::Analysis::File';

    # setup default lists for keywords and operators
    %Perl::Metrics::Simple::Analysis::File::LOGIC_KEYWORDS =
        Perl::Metrics::Simple::Analysis::File::hashify(@Perl::Metrics::Simple::Analysis::File::DEFAULT_LOGIC_KEYWORDS);
    %Perl::Metrics::Simple::Analysis::File::LOGIC_OPERATORS =
        Perl::Metrics::Simple::Analysis::File::hashify(@Perl::Metrics::Simple::Analysis::File::DEFAULT_LOGIC_OPERATORS);

    my $complexity = $s->measure_complexity( $target );

    return $complexity;
}

1;