Sugar::Cane working

gistfile1.pl

package Sugar::Cane;
# ABSTRACT: EXPERIMENTAL What you need to produce Sugar

use Moose ();
use Moose::Exporter;
use Moose::Util;

my ( $import, $unimport, $init_meta ) = Moose::Exporter->setup_import_methods(
	with_meta => [ 'attributes' ]
);

sub import {
	my $sugar_class = caller;
	Moose::Exporter->setup_import_methods(
		exporting_package => $sugar_class,
		class_metaroles => {
			class       => [ 'Sugar::Cane::Meta::Trait::Class' ],
		},
		also      => [ 'Moose' ],
	);
	goto $import;
}

sub attributes {
	my ( $meta, %args ) = @_;
	$meta->sugar_default_attributes(\%args);
}