File Coverage

blib/lib/CPAN/Changes/Group.pm

Criterion	Covered	Total	%
statement	32	37	86.4
branch	3	4	75.0
condition			n/a
subroutine	9	11	81.8
pod	8	8	100.0
total	52	60	86.6

package CPAN::Changes::Group;

use strict;
use warnings;

use Text::Wrap   ();

sub new {
    my $class = shift;
    return bless {
        changes    => [],
        @_,
    }, $class;
}

# Intentionally read only
# to prevent hash key and name being out of sync.
sub name {
    my $self = shift;
    if ( not exists $self->{ name } ) {
      $self->{ name } = q[];
    }
    return $self->{ name };
}

sub changes {
    my $self = shift;
    return $self->{ changes };
}

sub add_changes {
    my $self  = shift;
    push @{ $self->{ changes } }, @_;
}

sub set_changes {
    my $self  = shift;
    $self->{ changes } = \@_;
}

sub clear_changes {
    my $self = shift;
    $self->{ changes } = [];
}

sub is_empty {
    my $self = shift;
    return !@{ $self->changes };
}

sub serialize {
    my $self = shift;
    my %args = @_;

    my $output = '';
    my $name = $self->name;
    $output .= sprintf " [%s]\n", $name if length $name;
    # change logs commonly have long URLs we shouldn't break, and by default
    # Text::Wrap wraps on NONBREAKING SPACE.
    local $Text::Wrap::break = '[\t ]';
    local $Text::Wrap::huge = 'overflow';
    $output .= Text::Wrap::wrap( ' - ', '   ', $_ ) . "\n" for @{ $self->changes };

    return $output;
}

1;

__END__