File Coverage

blib/lib/Geo/IATA.pm

Criterion	Covered	Total	%
statement	63	70	90.0
branch	5	8	62.5
condition	1	3	33.3
subroutine	16	16	100.0
pod	2	2	100.0
total	87	99	87.8

package Geo::IATA;

use warnings;
use strict;
use Carp;
use File::Spec;
use DBI;
use Sub::Install qw(install_sub);

use version;
use vars '$VERSION';
$VERSION = qv('0.0.3');
our $AUTOLOAD;

sub new {
    my $self = shift;
    my $pkg = ref $self || $self;

    my $path = shift;
    unless ($path){
       my $db = $pkg;
       $db =~s{::}{/}gxms;
       $db =~s{$}{.pm}xms;
       ($path = $INC{$db}) =~ s{.pm$}{}xms;
       $path="iata_sqlite.db";

    }
    my $dbh = DBI->connect("dbi:SQLite:dbname=$path","","", {RaiseError => 1, unicode=> 1});
return bless {dbh => $dbh, dbname => $path}, $pkg;
}

sub AUTOLOAD { ## no critic qw(ClassHierarchies::ProhibitAutoloading Subroutines::RequireArgUnpacking)
    my $func = $AUTOLOAD;
    $func =~ s/.*:://xms;

    if ( grep { $func eq $_ } qw( iata icao airport location ) ) {

        no strict 'refs';    ## no critic 'TestingAndDebugging::ProhibitNoStrict'

        install_sub(
            {   code => sub {
                    my $self = shift;
                    my $arg  = shift;
                    my $sth  = $self->dbh->prepare("select * from iata where $func like ?");
                    $sth->execute($arg);
                    my $result = $sth->fetchall_arrayref( {} );
                    $sth->finish;
                return $result;
                },
                into => ref $_[0],
                as   => $func,
            }
        );
    goto &$func;
    }
    elsif ( $func =~ m/^(iata|icao|airport|location)2(iata|icao|airport|location)$/xms ) {
        my $from = $1;
        my $to   = $2;
        no strict 'refs';    ## no critic 'TestingAndDebugging::ProhibitNoStrict'

        install_sub(
            {   code => sub {
                    my $self = shift;
                    my $arg  = shift;
                    return $self->$from($arg)->[0]{$to};
                },
                into => ref $_[0],
                as   => $func,
            }
        );
    goto &$func;
    }
    else {
        croak "unknown subroutine $func";
    }
    return;
}

sub DESTROY {
    my $self = shift;
    my $dbh = $self->dbh;
    if ($dbh){
        $dbh->disconnect;
    }
    undef $self;
return;
}

sub dbh {
return shift->{dbh};
}

1; # Magic true value required at end of module
__END__