File Coverage

blib/lib/Protocol/DBus/Authn/Mechanism.pm
Criterion Covered Total %
statement 19 19 100.0
branch n/a
condition 1 3 33.3
subroutine 7 7 100.0
pod 0 2 0.0
total 27 31 87.1


line stmt bran cond sub pod time code
1             package Protocol::DBus::Authn::Mechanism;
2              
3 17     17   6013 use strict;
  17         35  
  17         389  
4 17     17   74 use warnings;
  17         31  
  17         384  
5              
6 17     17   161 use constant INITIAL_RESPONSE => ();
  17         53  
  17         841  
7 17     17   86 use constant AFTER_AUTH => ();
  17         19  
  17         721  
8              
9 17     17   91 use constant on_rejected => ();
  17         33  
  17         1940  
10              
11             sub new {
12 10     10 0 2271 my $self = bless {}, shift;
13              
14 10         66 return $self;
15             }
16              
17             sub label {
18 17   33 17 0 69 my $class = ref($_[0]) || $_[0];
19              
20 17         106 return substr( $class, 1 + rindex($class, ':') );
21             }
22              
23             1;