-#!/usr/bin/perl
-
use strict;
use warnings;
BEGIN {
eval "use Algorithm::C3";
plan skip_all => "Algorithm::C3 required for this test" if $@;
- plan tests => 5;
-
- use_ok('Class::MOP');
- require_ok(File::Spec->catdir('examples', 'C3MethodDispatchOrder.pod'));
+ plan tests => 4;use Class::MOP;
+ require_ok(File::Spec->catfile('examples', 'C3MethodDispatchOrder.pod'));
}
{