File Coverage

blib/lib/FusionInventory/Agent/XML/Query/Prolog.pm
Criterion Covered Total %
statement 12 12 100.0
branch 2 2 100.0
condition n/a
subroutine 4 4 100.0
pod 1 1 100.0
total 19 19 100.0


line stmt bran cond sub pod time code
1             package FusionInventory::Agent::XML::Query::Prolog;
2              
3 31     31   41052413 use strict;
  31         71  
  31         848  
4 31     31   170 use warnings;
  31         70  
  31         925  
5 31     31   154 use base 'FusionInventory::Agent::XML::Query';
  31         205  
  31         19075  
6              
7             sub new {
8 2     2 1 554 my ($class, %params) = @_;
9              
10 2 100       17 die "no deviceid parameter" unless $params{deviceid};
11              
12 1         12 return $class->SUPER::new(
13             query => 'PROLOG',
14             token => '12345678',
15             %params
16             );
17              
18             }
19              
20             1;
21             __END__