File Coverage

blib/lib/WebService/Pandora/Partner/iOS.pm
Criterion Covered Total %
statement 14 14 100.0
branch 1 2 50.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 20 21 95.2


line stmt bran cond sub pod time code
1             package WebService::Pandora::Partner::iOS;
2              
3 2     2   14 use strict;
  2         5  
  2         79  
4 2     2   12 use warnings;
  2         4  
  2         67  
5              
6 2     2   10 use base 'WebService::Pandora::Partner';
  2         4  
  2         1424  
7              
8             ### constructor ###
9              
10             sub new {
11              
12 1     1 1 2 my $caller = shift;
13              
14 1         2 my $class = ref( $caller );
15 1 50       6 $class = $caller if ( !$class );
16              
17 1         11 my $self = $class->SUPER::new( username => 'iphone',
18             password => 'P2E4FC0EAD3*878N92B2CDp34I0B1@388137C',
19             deviceModel => 'IP01',
20             decryption_key => '20zE1E47BE57$51',
21             encryption_key => '721^26xE22776',
22             host => 'tuner.pandora.com' );
23            
24 1         3 return $self;
25             }
26              
27             1;