Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- package Sugar::Factory;
- # ABSTRACT: EXPERIMENTAL The factory for producing your own Sugar
- use Sugar::Cane ();
- use Moose::Exporter;
- use Moose::Util;
- my ( $import, $unimport, $init_meta ) = Moose::Exporter->setup_import_methods(
- with_meta => [ 'attributes' ],
- class_metaroles => {
- class => [ 'Sugar::Factory::Meta::Trait::Class' ],
- },
- );
- sub import {
- my $sugar_class = caller;
- Moose::Exporter->setup_import_methods(
- exporting_package => $sugar_class,
- also => [ 'Sugar::Cane' ],
- );
- goto $import;
- }
- use Data::Dumper;
- sub attributes {
- my ( $class, %args ) = @_;
- $class->sugar_default_attributes(\%args);
- }
Add Comment
Please, Sign In to add comment