#!/usr/local/bin/perl -w
# Doer.pm
# my OOPerl "implementation"

use strict;
use warnings;
use FindBin::libs;
use Class::Contract;
use private qw(_semprini);
use protected qw(_friendly);
use public qw(face);

# Should be implementing rather than overloading or overriding
use overload "Doable::doTheThing" => "Doer::doTheThing";

use Doable;

# I want to IMPLEMENT, 
# not INHERIT, but anyway...
package Doer; @Doer::ISA = qw(Doable); {
    sub new {
        my $classname = shift;
        my $self = bless { }, $classname;
        $self->{_semprini} = 'naughty';
        $self->{face} = 'blank';
        return($self);
    } # end new

    sub DESTROY {
        my $self = shift;
    } # end DESTROY

    sub doTheThing {
        print"\nTesting...\n\n";
    } # end doTheThing

    # Don't uncomment unless testing.
    # sub doThatThing { return(0); } # end doThatThing

} 1; # end Doer