File Coverage

blib/lib/WebNano/FindController.pm

Criterion	Covered	Total	%
statement	27	27	100.0
branch	7	8	87.5
condition			n/a
subroutine	6	6	100.0
pod	1	1	100.0
total	41	42	97.6

use strict;
use warnings;

package WebNano::FindController;
BEGIN {
  $WebNano::FindController::VERSION = '0.007';
}

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

use Class::Load 'try_load_class';

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;
        if( ! try_load_class( $controller_class ) ){
            my $file = $controller_class;
            $file =~ s{::}{/}g;
            $file .= '.pm';
            if( $Class::Load::ERROR !~ /Can't locate \Q$file\E in \@INC/ ){
                die $Class::Load::ERROR;
            }
        };
        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.007

=head2 find_nested

=head1 AUTHOR

Zbigniew Lukasiak

=head1 COPYRIGHT AND LICENSE

This software is Copyright (c) 2010 by Zbigniew Lukasiak .

This is free software, licensed under:

  The Artistic License 2.0 (GPL Compatible)

=cut


__END__