Guest User

Untitled

a guest
Jul 22nd, 2018
65
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.63 KB | None | 0 0
  1. package Sugar::Factory;
  2. # ABSTRACT: EXPERIMENTAL The factory for producing your own Sugar
  3.  
  4. use Sugar::Cane ();
  5. use Moose::Exporter;
  6. use Moose::Util;
  7.  
  8. my ( $import, $unimport, $init_meta ) = Moose::Exporter->setup_import_methods(
  9. with_meta => [ 'attributes' ],
  10. class_metaroles => {
  11. class => [ 'Sugar::Factory::Meta::Trait::Class' ],
  12. },
  13. );
  14.  
  15. sub import {
  16. my $sugar_class = caller;
  17. Moose::Exporter->setup_import_methods(
  18. exporting_package => $sugar_class,
  19. also => [ 'Sugar::Cane' ],
  20. );
  21. goto $import;
  22. }
  23.  
  24. use Data::Dumper;
  25.  
  26. sub attributes {
  27. my ( $class, %args ) = @_;
  28. $class->sugar_default_attributes(\%args);
  29. }
Add Comment
Please, Sign In to add comment