diff lib/IMPL/Test/HarnessRunner.pm @ 411:ee36115f6a34 ref20150831

sync
author cin
date Mon, 21 Sep 2015 00:53:10 +0300
parents c6e90e02dd17
children
line wrap: on
line diff
--- a/lib/IMPL/Test/HarnessRunner.pm	Mon Sep 14 01:11:53 2015 +0300
+++ b/lib/IMPL/Test/HarnessRunner.pm	Mon Sep 21 00:53:10 2015 +0300
@@ -2,17 +2,15 @@
 use strict;
 use warnings;
 
-use parent qw(IMPL::Object IMPL::Object::Autofill IMPL::Object::Serializable);
-
 use TAP::Parser;
 use Test::Harness;
 
-__PACKAGE__->PassThroughArgs;
-
-
-sub CTOR {
-    my $this = shift;
-}
+use IMPL::declare {
+	base => [
+		'IMPL::Object' => undef,
+		'IMPL::Object::Serializable' => undef
+	]
+};
 
 sub RunTests {
     my ($this,@files) = @_;