#
# Lintian::Changelog::Entry
#
# Copyright (C) 2005 Frank Lichtenheld <frank@lichtenheld.de>
# Copyright (C) 2019 Felix Lechner <felix.lechner@lease-up.com>
#
#    This program is free software; you can redistribute it and/or modify
#    it under the terms of the GNU General Public License as published by
#    the Free Software Foundation; either version 2 of the License, or
#    (at your option) any later version.
#
#    This program is distributed in the hope that it will be useful,
#    but WITHOUT ANY WARRANTY; without even the implied warranty of
#    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#    GNU General Public License for more details.
#
#    You should have received a copy of the GNU General Public License
#    along with this program; if not, write to the Free Software
#    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301 USA
#

package Lintian::Changelog::Entry;

use v5.20;
use warnings;
use utf8;

use Const::Fast;

use Moo;
use namespace::clean;

const my $EMPTY => q{};
const my $UNKNOWN => q{unknown};

has Changes => (is => 'rw', default => $EMPTY);
has Closes => (is => 'rw');
has Date => (is => 'rw');
has Distribution => (is => 'rw');
has Header => (is => 'rw');
#has Items => (is => 'rw', default => sub { [] });
has Maintainer => (is => 'rw');
has Source => (is => 'rw');
has Timestamp => (is => 'rw');
has Trailer => (is => 'rw');
has Urgency => (is => 'rw', default => $UNKNOWN);
has Urgency_LC => (is => 'rw', default => $UNKNOWN);
has Urgency_Comment => (is => 'rw', default => $EMPTY);
has Version => (is => 'rw');
has ERROR => (is => 'rw');
has position => (is => 'rw');

=head1 NAME

Lintian::Changelog::Entry - represents one entry in a Debian changelog

=head1 SYNOPSIS

=head1 DESCRIPTION

=head2 Methods

=head3 init

Creates a new object, no options.

=head3 new

Alias for init.

=head3 is_empty

Checks if the object is actually initialized with data. Due to limitations
in Parse::DebianChangelog this currently simply checks if one of the
fields Source, Version, Maintainer, Date, or Changes is initialized.

=head2 Accessors

The following fields are available via accessor functions (all
fields are string values unless otherwise noted):

=over 4

=item Source

=item Version

=item Distribution

=item Urgency

=item Urgency_Comment

=item C<Urgency_LC>

=item C<ExtraFields>

Extra_Fields (all fields except for urgency as hash; POD spelling forces the underscore)

=item Header

Header (the whole header in verbatim form)

=item Changes

Changes (the actual content of the bug report, in verbatim form)

=item Trailer

Trailer (the whole trailer in verbatim form)

=item Closes

Closes (Array of bug numbers)

=item Maintainer

=item C<MaintainerEmail>

=item Date

=item Timestamp

Timestamp (Date expressed in seconds since the epoch)

=item ERROR

Last parse error related to this entry in the format described
at Parse::DebianChangelog::get_parse_errors.

=item position

=back

=begin Pod::Coverage

Changes
Closes
Date
Distribution
Header
Maintainer
C<MaintainerEmail>
Source
Timestamp
Trailer

=end Pod::Coverage

=cut

sub is_empty {
    my ($self) = @_;

    return !(length $self->Changes
        || length $self->Source
        || length $self->Version
        || length $self->Maintainer
        || length $self->Date);
}

1;
__END__

=head1 SEE ALSO

Originally based on Parse::DebianChangelog by Frank Lichtenheld, E<lt>frank@lichtenheld.deE<gt>

=head1 AUTHOR

Written by Felix Lechner <felix.lechner@lease-up.com> for Lintian in response to #933134.

=head1 COPYRIGHT AND LICENSE

Please see in the code; FSF's standard short text triggered a POD spelling error
here.

=cut

# Local Variables:
# indent-tabs-mode: nil
# cperl-indent-level: 4
# End:
# vim: syntax=perl sw=4 sts=4 sr et