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   13 use strict;
  2         3  
  2         77  
3 2     2   10 use warnings;
  2         3  
  2         55  
4 2     2   1958 use utf8;
  2         20  
  2         10  
5 2     2   71 use Mouse;
  2         2  
  2         13  
6 2     2   2618 use Furl;
  2         78369  
  2         65  
7 2     2   1142 use WebService::Heartrails::Express::Provider::Line;
  2         8  
  2         80  
8 2     2   1247 use WebService::Heartrails::Express::Provider::Station;
  2         3  
  2         59  
9 2     2   1290 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             no Mouse;
23             __PACKAGE__->meta->make_immutable;
24              
25              
26             1;