1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
|
package Software::Release::Change;
{
$Software::Release::Change::VERSION = '0.03';
}
use Moose;
# ABSTRACT: A change made in a software release.
has 'author_email' => (
is => 'rw',
isa => 'Str',
);
has 'author_name' => (
is => 'rw',
isa => 'Str',
);
has 'change_id' => (
is => 'rw',
isa => 'Str'
);
has 'committer_email' => (
is => 'rw',
isa => 'Str',
);
has 'committer_name' => (
is => 'rw',
isa => 'Str',
);
has 'date' => (
is => 'rw',
isa => 'DateTime'
);
has 'description' => (
is => 'rw',
isa => 'Str'
);
__PACKAGE__->meta->make_immutable;
no Moose;
1;
__END__
=pod
=head1 NAME
Software::Release::Change - A change made in a software release.
=head1 VERSION
version 0.03
=head1 SYNOPSIS
use DateTime;
use Software::Release::Change;
my $change = Software::Release::Change->new(
author_name => 'gphat',
author_email => 'gphat@cpan.org',
change_id => 'abc1234',
date => DateTime->now,
description => 'Frozzled the wozjob'
);
=head1 DESCRIPTION
Software::Release::Change represents a single change made in a software
release.
=head1 ATTRIBUTES
=head2 author_email
The author's email address
=head2 author_name
The author's name
=head2 change_id
The id of the change.
=head2 committer_email
The committer's email address
=head2 committer_name
The committer's name
=head2 date
The date
=head2 description
The description of the change.
=head1 AUTHOR
Cory G Watson <gphat@cpan.org>
=head1 COPYRIGHT AND LICENSE
This software is copyright (c) 2011 by Infinity Interactive, Inc.
This is free software; you can redistribute it and/or modify it under
the same terms as the Perl 5 programming language system itself.
=cut
|
