File Coverage

blib/lib/ShipIt/Step/CheckVersionsMatch.pm

Criterion	Covered	Total	%
statement	12	25	48.0
branch	0	8	0.0
condition	0	3	0.0
subroutine	4	6	66.6
pod	1	1	100.0
total	17	43	39.5

package ShipIt::Step::CheckVersionsMatch;

use strict;
use warnings;

use base 'ShipIt::Step';

use File::Find::Rule;


our $VERSION = '0.02';

sub run {
    my $self  = shift;
    my $state = shift;

    my $master_version = $state->version();

    for my $mod ( File::Find::Rule->name('*.pm')->in('lib') )
    {
        my $version = $self->_version_from_file($mod);
        next unless defined $version && length $version;

        if ( $version ne $master_version )
        {
            die "The version in $mod ($version) does not match the master version ($master_version)\n";
        }
    }
}

# Copied from ProjectType::Perl, which operates only on $self->{ver_from}
sub _version_from_file
{
    my $self = shift;
    my $file = shift;

    open my $fh, '<', $file
        or die "Failed to open $file: $!\n";

    while (<$fh>) {
        return $2 if /\$VERSION\s*=\s*([\'\"])(.+?)\1/;
    }
}


1;

__END__