File Coverage

blib/lib/WebNano/FindController.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	7	8	87.5
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	40	41	97.5

use strict;
use warnings;

package WebNano::FindController;

use Exporter 'import';
our @EXPORT_OK = qw(find_nested);

use Try::Tiny;

sub find_nested {
    my( $sub_path, $search_path ) = @_;
    return if $sub_path =~ /\./;
    $sub_path =~ s{/}{::}g;
    my @path = @$search_path;
    for my $base ( @path ){
        my $controller_class = $base . '::Controller' . $sub_path;
        eval "require $controller_class";
        if( $@ ){
            my $file = $controller_class;
            $file =~ s{::}{/}g;
            $file .= '.pm';
            if( $@ !~ /Can't locate \Q$file\E in \@INC/ ){
                die $@;
            }
        };
        return $controller_class if $controller_class->isa( 'WebNano::Controller' );
    }
    return;
}

1;



=pod

=head1 NAME

WebNano::FindController - Tool for finding controller classes

=head1 VERSION

version 0.001

=head2 find_nested

=head1 AUTHOR

Zbigniew Lukasiak <[e-mail]>

=head1 COPYRIGHT AND LICENSE

This software is copyright (c) 2010 by Zbigniew Lukasiak <[e-mail]>.

This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.

=cut


__END__

# ABSTRACT: Tool for finding controller classes