File: accessor-weaken-pre-5_8_3.t

package info (click to toggle)
libmoo-perl 2.002005-1
  • links: PTS, VCS
  • area: main
  • in suites: stretch
  • size: 856 kB
  • ctags: 192
  • sloc: perl: 2,561; makefile: 6
file content (12 lines) | stat: -rw-r--r-- 246 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
 
use Moo::_strictures;
use File::Spec;
BEGIN {
  $ENV{MOO_TEST_PRE_583} = 1;
}

(my $real_test = File::Spec->rel2abs(__FILE__)) =~ s/-pre-5_8_3//;

unless (defined do $real_test) {
    die "$real_test: $@" if $@;
    die "$real_test: $!" if $!;
}