File Coverage

blib/lib/Geo/CountryFlags/URLs.pm

Criterion	Covered	Total	%
statement	16	23	69.5
branch	1	4	25.0
condition	1	5	20.0
subroutine	6	8	75.0
pod	4	4	100.0
total	28	44	63.6

#!/usr/bin/perl
package Geo::CountryFlags::URLs;

################################################################
# WARNING! this module is automatically generated DO NOT EDIT! #
#            see Geo::CountryFlags::Util instead               #
#                                                              #
# creation date:  Sat Sep 16 02:32:24 2006 GMT	               #
################################################################

use strict;
use vars qw($VERSION);
$VERSION = '2006258.001';

my $URLs = {
    'CIA' => q|https://www.cia.gov/cia/publications/factbook/docs/flagsoftheworld.html|,
    'CIAFLAGS' => q|https://www.cia.gov/cia/publications/factbook/flags/|,
    'ISO' => q|http://www.iso.org/iso/en/prods-services/iso3166ma/02iso-3166-code-lists/list-en1-semic.txt|,
};

sub AUTOLOAD {
  no strict;
  $AUTOLOAD =~ /[^:]+$/;
  value($&);
}

sub new {
  my $proto = shift;
  my $class = ref $proto || $proto || __PACKAGE__;
  my $self = {};
  bless $self, $class;
}

sub hashptr {
  my($proto,$class) = @_;
  $proto = $class if $class;
  $class = ref $proto || $proto;
  my $rv = {};
  %$rv = %$URLs;
  bless $rv, $class;
}

sub value {
  return (exists $URLs->{$_[0]}) ? $URLs->{$_[0]} : undef;
}

sub subref {
  return \&value;
}

1;
__END__