#!/usr/bin/perl
use strict;

package Bar;

sub CTOR {
	shift;
	warn @_;
}

package Foo;

use IMPL::declare {
	require => {
		TObject => 'IMPL::Object'
	},
	base => {
		TObject => '@_',
		-Bar => '@_'
	}
};

sub hello {
	return TObject;
}

package main;

print Foo->new(qw(one for me))->hello;