File Coverage

blib/lib/Parcel/Track/KR/Test.pm

Criterion	Covered	Total	%
statement	20	22	90.9
branch	1	2	50.0
condition			n/a
subroutine	7	7	100.0
pod	3	4	75.0
total	31	35	88.5

package Parcel::Track::KR::Test;
# ABSTRACT: Parcel::Track driver for the Regional-Class Test

use utf8;

use Moo;

our $VERSION = '0.003';

with 'Parcel::Track::Role::Base';

use Encode qw( encode_utf8 );

our $URI = 'http://kr-test?tracking_number=%s';

sub BUILDARGS {
    my ( $class, @args ) = @_;

    my %params;
    if ( ref $args[0] eq 'HASH' ) {
        %params = %{ $args[0] };
    }
    else {
        %params = @args;
    }
    $params{id} =~ s/\D//g;

    return \%params;
}

sub uri { sprintf( $URI, $_[0]->id ) }

sub track {
    my $self = shift;

    my %result = (
        from   => encode_utf8(q{김도형}),
        to     => encode_utf8(q{CPAN}),
        result => encode_utf8(q{2015.01.27 도착}),
        htmls  => [
            encode_utf8(q{더미 1}), encode_utf8(q{더미 2}),
            encode_utf8(q{더미 3}),
        ],
        descs => [
            encode_utf8(q{2015.01.24. 17:34 접수}),
            encode_utf8(q{2015.01.25. 09:00 광진지점}),
            encode_utf8(q{2015.01.25. 13:01 상차}),
            encode_utf8(q{2015.01.26. 15:23 하차}),
            encode_utf8(q{2015.01.27. 10:45 강동지점}),
            encode_utf8(q{2015.01.27. 16:13 배송완료}),
        ],
    );

    return \%result;
}

sub clear { 1 }

1;

#
# This file is part of Parcel-Track
#
# This software is copyright (c) 2015 by Keedi Kim.
#
# This is free software; you can redistribute it and/or modify it under
# the same terms as the Perl 5 programming language system itself.
#

__END__