File Coverage

lib/MooseX/DIC/Configuration/Scanner/Injectable.pm

Criterion	Covered	Total	%
statement	30	30	100.0
branch	9	10	90.0
condition	2	3	66.6
subroutine	9	9	100.0
pod	0	3	0.0
total	50	55	90.9

package MooseX::DIC::Configuration::Scanner::Injectable;

use File::Find;
use File::Slurper 'read_text';
use Try::Tiny;

require Exporter;
@ISA       = qw/Exporter/;
@EXPORT_OK = qw/fetch_injectable_packages_from_path/;

sub fetch_injectable_packages_from_path {
    my $path = shift;

    my @injectable_packages = ();
    find(
        sub {
            my $file_name = $File::Find::name;
            push @injectable_packages,
                extract_package_name_from_filename($file_name)
                if is_injectable($file_name);
        },
        @$path
    );

    return @injectable_packages;
}

sub is_injectable {
    my $file_name = shift;

    # Must be a file
    return 0 unless -f $file_name;

    # Must be a perl module
    return 0 if index( $file_name, '.pm' ) == -1;

    # Must have the injectable role applied
    my $file_content = try { read_text( $file_name ) };
    return 0
        unless ( $file_content
        and ( index( $file_content, 'MooseX::DIC::Injectable' ) != -1 ) );

    return 1;
}

# This method assumes there's only one package per file
sub extract_package_name_from_filename {
    my $file_name = shift;

    my $package_name;
    my $file_content = try { read_text( $file_name ) };
    if ($file_content) {
        $file_content =~ /package\ +([a-zA-Z0-9]+)/;
        $package_name = $1;
    }

    return $package_name;
}

1;