view release on metacpan or  search on metacpan

lib/Changes.pm  view on Meta::CPAN

        else
        {
            chomp( $l );
            warn( "Found an unrecognisable line: '$l'\n" ) if( $self->_warnings_is_enabled );
        }
    }
    $self->elements( $elements );
    return( $self );
}

sub preamble { return( shift->_set_get_scalar_as_object( { field => 'preamble', callbacks => 
{
    set => sub
    {
        my( $self, $text ) = @_;
        if( defined( $text ) && $text->defined )
        {
            unless( $text =~ /[\015\012]$/ms )
            {
                $text->append( $self->nl // "\n" );
            }

lib/Changes/Version.pm  view on Meta::CPAN

        }
        return( $self->error( "Bad predicate '$_'" ) );
    }
    return(1);
}

sub target { return( shift->_set_get_scalar_as_object( 'target', @_ ) ); }

sub type { return( shift->reset(@_)->_set_get_scalar_as_object({
    field => 'type',
    callbacks => 
    {
        add => sub
        {
            my $self = shift( @_ );
            if( $self->{type} eq 'decimal' )
            {
                $self->{qv} = 0;
            }
            elsif( $self->{type} eq 'dotted' )
            {