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