#!/usr/bin/perl

use strict;
use warnings;
use TestObjects;

my $obj1 = TestObjects->new();
$obj1->name( 'Jason' );
$obj1->properties( 'a','b' );

my $obj2 = TestObjects->new();
$obj2->name( 'Hugo' );

TestObjects->find( 'Jason' );