view release on metacpan or  search on metacpan

lib/MooseX/Struct.pm  view on Meta::CPAN

use Moose ();
use Sub::Install;
use Carp;

our $VERSION = '0.06';

sub import {
   my $class = shift;

   strict->import;
   warnings->import;

   if (@_) {
      my ($name, $attributes) = _parse_arg_structure(@_);

      croak 'Can not build structure out of "main"' if $name eq 'main';

      Moose->import({into  => $name});

      _build_struct($name, $attributes);