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 1     1   4 use strict;
  1         2  
  1         26  
4 1     1   5 use warnings;
  1         2  
  1         34  
5              
6 1     1   5 use base 'WebService::Pandora::Partner';
  1         2  
  1         585  
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       5 $class = $caller if ( !$class );
16              
17 1         10 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         4 return $self;
25             }
26              
27             1;