File Coverage

lib/Ubic/Credentials/OS/Windows.pm
Criterion Covered Total %
statement 9 12 75.0
branch n/a
condition n/a
subroutine 3 8 37.5
pod 5 5 100.0
total 17 25 68.0


line stmt bran cond sub pod time code
1             package Ubic::Credentials::OS::Windows;
2             $Ubic::Credentials::OS::Windows::VERSION = '1.59';
3 1     1   804 use strict;
  1         2  
  1         22  
4 1     1   3 use warnings;
  1         1  
  1         20  
5              
6             # ABSTRACT: dummy credentials module
7              
8              
9 1     1   3 use parent qw(Ubic::Credentials);
  1         1  
  1         3  
10              
11             sub new {
12 0     0 1   my $class = shift;
13 0           return bless {} => $class;
14             }
15              
16       0 1   sub set_effective {}
17       0 1   sub reset_effective {}
18 0     0 1   sub eq { 1 }
19       0 1   sub set {}
20              
21             1;
22              
23             __END__