#!perl # Emacs, this is -*- perl -*- use warnings; use strict; use Person::Stub; use ACME; use ACME::Catalog; my $me = new Person::Stub( 'Luis' ); my $nilson = new Person::Stub( 'Nilson' ); my $acme_factory = new ACME( operator => $me ); my $fire_suit = ACME->factory->build( $ACME::Catalog->{Suites}{Militar}{FireProof}{Heavy} ); $me->helps( $nilson->wear( $fire_suit ) ); __END__