# Make the Circle area() method add it to the Circle PerlBean
 use PerlBean::Method;
 my $area_circle = PerlBean::Method->new( {
     method_name => 'area',
     body => <<EOF,
     my \$self = shift;
 
     return( 2 * 3.1415926 * \$self->get_radius() );
 EOF
 } );
 $circle->add_method( $area_circle );