File Coverage

blib/lib/WebService/Heartrails/Express/Provider.pm
Criterion Covered Total %
statement 22 24 91.6
branch n/a
condition n/a
subroutine 8 8 100.0
pod n/a
total 30 32 93.7


line stmt bran cond sub pod time code
1             package WebService::Heartrails::Express::Provider;
2 2     2   101 use strict;
  2         5  
  2         186  
3 2     2   12 use warnings;
  2         4  
  2         66  
4 2     2   2293 use utf8;
  2         22  
  2         13  
5 2     2   78 use Mouse;
  2         5  
  2         16  
6 2     2   2920 use Furl;
  2         80231  
  2         68  
7 2     2   1412 use WebService::Heartrails::Express::Provider::Line;
  2         6  
  2         85  
8 2     2   1363 use WebService::Heartrails::Express::Provider::Station;
  2         5  
  2         57  
9 2     2   1326 use WebService::Heartrails::Express::Provider::Near;
  0            
  0            
10              
11             has furl => (
12             is => 'ro',
13             isa => 'Furl',
14             );
15              
16             sub dispatch{
17             my($self,$api_name,$arg) = @_;
18             my $class = __PACKAGE__.'::'.ucfirst($api_name);
19             $class->call($self,$arg);
20             }
21              
22             1;