File Coverage

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


line stmt bran cond sub pod time code
1             package FusionInventory::Agent::XML::Query::Prolog;
2              
3 21     21   29971535 use strict;
  21         30  
  21         786  
4 21     21   106 use warnings;
  21         25  
  21         588  
5 21     21   86 use base 'FusionInventory::Agent::XML::Query';
  21         66  
  21         8992  
6              
7             sub new {
8 0     0 1   my ($class, %params) = @_;
9              
10 0 0         die "no deviceid parameter" unless $params{deviceid};
11              
12 0           return $class->SUPER::new(
13             query => 'PROLOG',
14             token => '12345678',
15             %params
16             );
17              
18             }
19              
20             1;
21             __END__