File Coverage

blib/lib/Perl/MinimumVersion/Reason.pm

Criterion	Covered	Total	%
statement	13	14	92.8
branch			n/a
condition			n/a
subroutine	7	8	87.5
pod	0	5	0.0
total	20	27	74.0

package Perl::MinimumVersion::Reason;
$Perl::MinimumVersion::Reason::VERSION = '1.41'; # TRIAL
# Simple abstraction for a syntax limitation.
# It contains the limiting version, the rule responsible, and the
# PPI element responsible for the limitation (if any).

use 5.006;
use strict;
use warnings;

sub new {
	my $class = shift;
	return bless { @_ }, $class;
}

sub version {
	$_[0]->{version};
}

sub rule {
	$_[0]->{rule};
}

sub element {
	$_[0]->{element};
}

sub explanation {
	$_[0]->{explanation};
}

1;