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 32     32   33663491 use strict;
  32         42  
  32         709  
4 32     32   98 use warnings;
  32         34  
  32         715  
5 32     32   109 use base 'FusionInventory::Agent::XML::Query';
  32         67  
  32         11028  
6              
7             sub new {
8 2     2 1 922 my ($class, %params) = @_;
9              
10 2 100       16 die "no deviceid parameter" unless $params{deviceid};
11              
12 1         11 return $class->SUPER::new(
13             query => 'PROLOG',
14             token => '12345678',
15             %params
16             );
17              
18             }
19              
20             1;
21             __END__