File Coverage

blib/lib/Path/IsDev/Heuristic/Changelog.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	2	2	100.0
condition			n/a
subroutine	7	7	100.0
pod	2	2	100.0
total	31	31	100.0

use 5.008;    # utf8
use strict;
use warnings;
use utf8;

package Path::IsDev::Heuristic::Changelog;

our $VERSION = '1.001003';

# ABSTRACT: Determine if a path contains a Changelog (or similar)

our $AUTHORITY = 'cpan:KENTNL'; # AUTHORITY













use Role::Tiny::With qw( with );
with 'Path::IsDev::Role::Heuristic', 'Path::IsDev::Role::Matcher::Child::BaseName::MatchRegexp::File';












sub basename_regexp {
  ## no critic (RegularExpressions::RequireLineBoundaryMatching)
  return qr/\AChange(s|log)(|[.][^.\s]+)\z/isx;
}







sub matches {
  my ( $self, $result_object ) = @_;
  if ( $self->child_basename_matchregexp_file( $result_object, $self->basename_regexp ) ) {
    $result_object->result(1);
    return 1;
  }
  return;
}

1;

__END__