#!/usr/bin/perl -w
use strict;
use lib '../Lib';

package Foo;
use base qw(IMPL::Object);

sub CTOR {
    my ($this,%args) = @_;
    print "CTOR Foo says $args{Name}\n";
}

sub Hello {
    print "\tHello\n";
}

package Bar;
use base qw(Foo);

__PACKAGE__->PassThroughArgs;

sub CTOR {
    print "CTOR Bar\n";
}

package main;

my $obj = new Bar ( Name => 'Tom') ;

Hello $obj;