File Coverage

blib/lib/PPIx/QuoteLike/Token/Control.pm

Criterion	Covered	Total	%
statement	16	16	100.0
branch			n/a
condition			n/a
subroutine	6	6	100.0
pod			n/a
total	22	22	100.0

package PPIx::QuoteLike::Token::Control;

use 5.006;

use strict;
use warnings;

use base qw{ PPIx::QuoteLike::Token };

use PPIx::QuoteLike::Constant qw{ @CARP_NOT };

our $VERSION = '0.022';

{
    # TODO make this a state variable when we can require Perl 5.10.
    my $introduced = {
	'\\F'	=> '5.015008',
    };

    sub __perl_version_introduced {
	my ( $self ) = @_;
	return $introduced->{ $self->content() };
    }
}

1;

__END__