Re^4: OO: how to make a generic sub (use roles or inheritance)

Select or download this

package FragileDancer
{
...
    with "Fragile";
    with "Dancer";
    ...

Select or download this

package FragileDancer
{
    use Role::Tiny::With;
    with 'Fragile', 'Dancer';
    ...

Select or download this

Due to a method name conflict between roles 'Dancer and Fragile', the 
+method 'break' must be implemented by 'FragileDancer' at C:\Perl\lib\
+perl5/Role/Tiny.pm line 183.

Select or download this

#! perl
use strict;
...

my $fg = FragileDancer->new('Nina');
   $fg->break();

Select or download this

23:44 >perl 655_SoPW.pl
Due to a method name conflict between roles 'Dancer and Fragile', the 
+method 'break' must be implemented by 'FragileDancer' at C:\Perl\lib\
+perl5/Role/Tiny.pm line 183.

23:44 >

Select Code to Download