use strict;
use warnings;
+use Carp 'confess';
use Scalar::Util 'blessed';
-our $VERSION = '0.67';
+our $VERSION = '0.75';
$VERSION = eval $VERSION;
our $AUTHORITY = 'cpan:STEVAN';
);
}
+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__
L<Class::MOP::Class>. A module essentially a package with metadata,
in our case the version and authority.
+=head1 INHERITANCE
+
+B<Class::MOP::Module> is a subclass of L<Class::MOP::Package>
+
=head1 METHODS
=over 4
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