need( $a->friend )->isa('Friend:indeed')
<
with( $a->friend (%weed) )

[download]

Back to Perl Poetry