=head1 SYNOPSIS
package Eq;
- use strict;
- use warnings;
use Moose::Role;
requires 'equal_to';
}
package Comparable;
- use strict;
- use warnings;
use Moose::Role;
with 'Eq';
}
package Printable;
- use strict;
- use warnings;
use Moose::Role;
requires 'to_string';
package US::Currency;
- use strict;
- use warnings;
use Moose;
with 'Comparable', 'Printable';