return;
}
+package
+ Mouse::Object;
+
+
+sub BUILDARGS {
+ my $class = shift;
+ if (scalar @_ == 1) {
+ (ref($_[0]) eq 'HASH')
+ || $class->meta->throw_error("Single parameters to new() must be a HASH ref");
+
+ return {%{$_[0]}};
+ }
+ else {
+ return {@_};
+ }
+}
1;
__END__