#!/usr/bin/perl -wT

use strict;
use lib '.';
use Objects::Parent;

loadObjects('Objects');

sub loadObjects {
        my $directory = shift;

        opendir(DIR, $directory) or die "Object Templates can't be loaded: Can't open $directory: $!";
        while (defined(my $file = readdir(DIR))) {
                if($file =~ /^(.*\.pm)$/) {
                        $file = $1;
                        $file = $directory."/".$file;
                        require $file;
                        $file =~ s/\//::/g;
                        $file =~ s/\.pm$//;
                        if($file->isa('Objects::Parent')) {
                                my $tempObject = $file->new();
                                $tempObject->doSomething();
                        }

                }
        }
}

##</code><code>##

package Objects::Parent;

sub new {
        bless {}, shift;
}

sub doSomething {
        print "Something\n";
}

1;

##</code><code>##

package Objects::Child;

use base 'Objects::Parent';

1;