File Coverage

blib/lib/Git/Database/Actor.pm
Criterion Covered Total %
statement 7 7 100.0
branch n/a
condition n/a
subroutine 3 3 100.0
pod 1 1 100.0
total 11 11 100.0


line stmt bran cond sub pod time code
1             package Git::Database::Actor;
2             $Git::Database::Actor::VERSION = '0.012';
3 8     8   52 use Moo;
  8         14  
  8         46  
4 8     8   2424 use namespace::clean;
  8         20  
  8         57  
5              
6             has name => (
7             is => 'ro',
8             required => 1,
9             );
10              
11             has email => (
12             is => 'ro',
13             required => 1,
14             );
15              
16 1290     1290 1 1226422 sub ident { $_[0]->name . ' <' . $_[0]->email . '>' }
17              
18             1;
19              
20             __END__
21              
22             =pod
23              
24             =head1 NAME
25              
26             Git::Database::Actor - An actor in Git::Database
27              
28             =head1 VERSION
29              
30             version 0.012
31              
32             =head1 SYNOPSIS
33              
34             use Git::Database::Actor;
35              
36             my $actor = Git::Database::Actor->new(
37             name => 'Philippe Bruhat (BooK)',
38             email => 'book@cpan.org'
39             );
40              
41             print $actor->ident; # Philippe Bruhat (BooK) <book@cpan.org>
42              
43             =head1 DESCRIPTION
44              
45             L<Git::Database::Actor> represents a user in L<Git::Database>,
46             i.e. the combination of a name and an email.
47              
48             =head1 ATTRIBUTES
49              
50             =head2 name
51              
52             The name of the actor.
53              
54             =head2 email
55              
56             The email of the actor.
57              
58             =head1 METHODS
59              
60             =head2 ident
61              
62             The identity of the actor, build as:
63              
64             Name <email>
65              
66             =head1 AUTHOR
67              
68             Philippe Bruhat (BooK) <book@cpan.org>.
69              
70             =head1 COPYRIGHT
71              
72             Copyright 2013-2016 Philippe Bruhat (BooK), all rights reserved.
73              
74             =head1 LICENSE
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