File Coverage

blib/lib/WWW/Gazetteer.pm

Criterion	Covered	Total	%
statement	17	21	80.9
branch	1	4	25.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	24	31	77.4

package WWW::Gazetteer;
use strict;
use warnings;
use Module::Pluggable search_path => ['WWW::Gazetteer'], require => 1;

use vars qw($VERSION @ISA);
$VERSION = '0.24';

sub new {
    my ( $package, $type, @params ) = @_;

    my $self = bless {}, $package;

    my $class;
    foreach my $plugin ( $self->plugins ) {
        if ( $plugin =~ /$type/i ) {
            $class = $plugin;
            last;
        }
    }

    die "No WWW::Gazetteer plugin for $type found" unless $class;
    return $class->new(@params);
}

1;

__END__