view release on metacpan or  search on metacpan

lib/OTRS/OPM/Maker/Command/changes.pm  view on Meta::CPAN

    chdir $opt->{dir};

    my $changes_file = Path::Class::File->new( $opt->{file} );
    my @entries;
    my $lines;

    if ( -f $changes_file->stringify ) {
        $lines = $changes_file->slurp( iomode => '<:encoding(UTF-8)' );

        my @entries = grep{ ( $_ // '' ) ne '' }split m{
            (?:\s+)?
            (                                         # headline with version and date
                ^
                \d+\.\d+ (?:\.\d+)?                   # version
                \s+ -? \s+
                \d{4}-\d{2}-\d{2} (?:\s|T)            # date
                \d{2}:\d{2}:\d{2} (?:[+-]\d+:\d+)?\s  # time
                (?: - \s [a-f0-9]+ )?                 # optional git commit
            )
            \s+