File Coverage

blib/lib/String/UpdateYears.pm

Criterion	Covered	Total	%
statement	36	36	100.0
branch	14	14	100.0
condition			n/a
subroutine	5	5	100.0
pod	1	1	100.0
total	56	56	100.0

package String::UpdateYears;

use base qw(Exporter);
use strict;
use warnings;

use Readonly;

our $VERSION = 0.01;

# Constants.
Readonly::Array our @EXPORT => qw(update_years);

sub update_years {
	my ($string, $opts_hr, $new_last_year) = @_;

	if (! defined $opts_hr) {
		$opts_hr = {};
	}
	if (! exists $opts_hr->{'prefix_glob'}) {
		$opts_hr->{'prefix_glob'} = '.*';
	}
	if (! exists $opts_hr->{'suffix_glob'}) {
		$opts_hr->{'suffix_glob'} = '.*';
	}

	my $pg = $opts_hr->{'prefix_glob'};
	my $sg = $opts_hr->{'suffix_glob'};
	if ($string =~ m/^($pg)(\d{4})-(\d{4})($sg)$/ms) {
		my $pre = $1;
		my $first_year = $2;
		my $last_year = $3;
		my $post = $4;
		if ($last_year != $new_last_year) {
			my $new_string = $pre.$first_year.'-'.$new_last_year.$post;
			return $new_string;
		}
	} elsif ($string =~ m/^($pg)(\d{4})($sg)$/ms) {
		my $pre = $1;
		my $first_year = $2;
		my $post = $3;
		if ($first_year != $new_last_year) {
			my $new_string = $pre.$first_year.'-'.$new_last_year.$post;
			return $new_string;
		}
	}

	return;
}

1;

__END__