-#!/usr/bin/perl
-
use strict;
use warnings;
use Test::More;
BEGIN {
- plan skip_all => "Perl 5.10 is required" unless eval { require 5.010 };
- plan tests => 3;
- use_ok("Try::Tiny");
+ plan skip_all => 'Perl 5.010 is required' unless "$]" >= '5.010';
+ plan tests => 2;
}
+use Try::Tiny;
+
use 5.010;
-no if $] >= 5.017011, warnings => 'experimental::smartmatch';
+no if "$]" >= 5.017011, warnings => 'experimental::smartmatch';
my ( $error, $topic );
{
local $TODO = "perhaps a workaround can be found"
- if $] < 5.017003;
+ if "$]" < 5.017003;
is( $topic, $error, 'error is also in $_' );
}
# ex: set sw=4 et:
-