File Coverage

blib/lib/Facebook/Messenger/Client/Model.pm
Criterion Covered Total %
statement 6 6 100.0
branch n/a
condition n/a
subroutine 2 2 100.0
pod n/a
total 8 8 100.0


line stmt bran cond sub pod time code
1             package Facebook::Messenger::Client::Model;
2              
3 1     1   480 use Moose;
  1         1  
  1         5  
4              
5 1     1   4640 use MooseX::Storage;
  1         28975  
  1         2  
6              
7             with Storage();
8              
9             around 'pack' => sub {
10             my $orig = shift();
11             my $self = shift();
12              
13             my $result = $self->$orig( @_ );
14             delete( $result->{__CLASS__} );
15              
16             return $result;
17             };
18              
19             __PACKAGE__->meta()->make_immutable();
20              
21             1;
22              
23             __END__
24              
25             =pod
26              
27             =head1 NAME
28              
29             Facebook::Messenger::Client::Model -
30              
31             =head1 SYNOPSIS
32              
33             =head1 DESCRIPTION
34              
35             =head1 METHODS
36              
37             =head1 AUTHOR
38              
39             Tudor Marghidanu <tudor@marghidanu.com>
40              
41             =head1 SEE ALSO
42              
43             =over 4
44              
45             =item *
46              
47             L<Moose>
48              
49             =item *
50              
51             L<Mojolicious>
52              
53             =back
54              
55             =head1 LICENSE
56              
57             This program is free software, you can redistribute it and/or modify it under the terms of the Artistic License version 2.0.
58              
59             =cut