#!/usr/local/bin/perl -w
# MyApp.pl
# my OOPerl "application"

use strict;
use warnings;
use private qw(_MyApp _main _d);
use Doer;

# I don't want to inherit here, 
# I just want to "use" and make sub calls
package _MyApp; @_MyApp::ISA = qw(Doer); {
    sub _main; {
        my $_d = Doer->new;             # constructor
        $_d->doTheThing;                # method
        # print $_d->NADA;              # can't see the constant
        $_d->DESTROY;                   # destructor
        print("\nDone! exiting...\n\n");
        exit(0);
    } # end _main

} 1; # end _MyApp