use strict;
use warnings;
+use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.63';
+our $VERSION = '0.72';
+$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
use base 'Class::MOP::Package';
);
}
+sub create {
+ my ( $class, %options ) = @_;
+
+ my $package_name = $options{package};
+
+ (defined $package_name && $package_name)
+ || confess "You must pass a package name";
+
+ my $code = "package $package_name;";
+ $code .= "\$$package_name\:\:VERSION = '" . $options{version} . "';"
+ if exists $options{version};
+ $code .= "\$$package_name\:\:AUTHORITY = '" . $options{authority} . "';"
+ if exists $options{authority};
+
+ eval $code;
+ confess "creation of $package_name failed : $@" if $@;
+
+ return; # XXX: should this return some kind of meta object? ~sartak
+}
+
1;
__END__
This constructs a string of the name, version and authority.
+=item B<create>
+
+This creates the module; it does not return a useful result.
+
=back
=head1 AUTHORS