Select Code to Download

package My::Abstract::Interface;
use Moose::Role;
requires qw( foo bar baz qux );

package My::Abstract::Interface;
use Carp;
...
sub bar { croak }
sub baz { croak }
sub qux { croak }

#!/usr/bin/env perl 

...

my $bar = Bar->new( %$foo );
print $bar->to_string, $/;