Exceptions and debugging 

# In .../Canvas.pm

my $radius = $opt{radius}
    or confess "draw_circle needs radius";