File Coverage

blib/lib/WebService/Windows/LiveID/Auth/User.pm
Criterion Covered Total %
statement 15 15 100.0
branch n/a
condition n/a
subroutine 5 5 100.0
pod 1 1 100.0
total 21 21 100.0


line stmt bran cond sub pod time code
1             package WebService::Windows::LiveID::Auth::User;
2              
3 6     6   33 use strict;
  6         12  
  6         208  
4 6     6   36 use warnings;
  6         13  
  6         185  
5              
6 6     6   33 use base qw(Class::Accessor::Fast);
  6         7  
  6         575  
7              
8 6     6   8669 use DateTime;
  6         410375  
  6         842  
9              
10             __PACKAGE__->mk_accessors(qw/
11             appid
12             uid
13             ts
14             sig
15             /);
16              
17             =head1 NAME
18              
19             WebService::Windows::LiveID::Auth::User - The data class of authenticated user.
20              
21             =head1 VERSION
22              
23             version 0.01
24              
25             =cut
26              
27             our $VERSION = '0.01';
28              
29             =head1 METHODS
30              
31             =head2 new($args)
32              
33             =cut
34              
35             sub new {
36 1     1 1 769 my ($class, $args) = @_;
37 1         11 $args->{ts} = DateTime->from_epoch(epoch => $args->{ts});
38 1         384 return $class->SUPER::new($args);
39             }
40              
41             =head1 SYNOPSIS
42              
43             =head1 METHODS
44              
45             =head2 appid
46              
47             Application ID
48              
49             =head2 uid
50              
51             Unique ID.
52              
53             =head2 ts
54              
55             Authenticated datetime. See L.
56              
57             =head2 sig
58              
59             Signature
60              
61             =head1 AUTHOR
62              
63             Toru Yamaguchi, C<< >>
64              
65             =head1 BUGS
66              
67             Please report any bugs or feature requests to
68             C, or through the web interface at
69             L. I will be notified, and then you'll automatically be
70             notified of progress on your bug as I make changes.
71              
72             =head1 COPYRIGHT & LICENSE
73              
74             Copyright 2007 Toru Yamaguchi, All Rights Reserved.
75              
76             This program is free software; you can redistribute it and/or modify it
77             under the same terms as Perl itself.
78              
79             =cut
80              
81             1; # End of WebService::Windows::LiveID::Auth::User