File Coverage

blib/lib/OpenID/Login/Types.pm
Criterion Covered Total %
statement 9 9 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod n/a
total 12 12 100.0


line stmt bran cond sub pod time code
1             package OpenID::Login::Types;
2             {
3             $OpenID::Login::Types::VERSION = '0.1.2';
4             }
5              
6             # ABSTRACT: Types for Net-OpenIdLogin.
7              
8 4     4   25 use Moose::Util::TypeConstraints;
  4         8  
  4         49  
9 4     4   8382 use OpenID::Login::Extension;
  4         10  
  4         458  
10              
11             subtype 'Extension_List', as 'HashRef[OpenID::Login::Extension]';
12              
13             coerce 'Extension_List', from 'ArrayRef', via {
14             my $ret = { map { ( $_->{uri} => OpenID::Login::Extension->new($_) ) } @$_ };
15             };
16              
17 4     4   25 no Moose::Util::TypeConstraints;
  4         9  
  4         26  
18             1;
19              
20              
21              
22             =pod
23              
24             =head1 NAME
25              
26             OpenID::Login::Types - Types for Net-OpenIdLogin.
27              
28             =head1 VERSION
29              
30             version 0.1.2
31              
32             =head1 AUTHOR
33              
34             Holger Eiboeck <realholgi@cpan.org>
35              
36             =head1 COPYRIGHT AND LICENSE
37              
38             This software is copyright (c) 2013 by Holger Eiboeck.
39              
40             This is free software; you can redistribute it and/or modify it under
41             the same terms as the Perl 5 programming language system itself.
42              
43             =cut
44              
45              
46             __END__
47