package MooseX::Singleton;
-use Moose;
+
+use Moose 0.73_01 ();
+use Moose::Exporter;
use MooseX::Singleton::Object;
use MooseX::Singleton::Meta::Class;
-our $VERSION = 0.04;
-
-sub import {
- my $caller = caller;
+our $VERSION = '0.15';
+$VERSION = eval $VERSION;
- Moose::init_meta($caller, 'MooseX::Singleton::Object', 'MooseX::Singleton::Meta::Class');
+Moose::Exporter->setup_import_methods( also => 'Moose' );
- Moose->import({into => $caller});
- strict->import;
- warnings->import;
+sub init_meta {
+ shift;
+ Moose->init_meta(
+ @_,
+ base_class => 'MooseX::Singleton::Object',
+ metaclass => 'MooseX::Singleton::Meta::Class',
+ );
}
1;
=head1 VERSION
-Version 0.03, released 16 Dec 07
+Version 0.15, released 24 May 08
=head1 SYNOPSIS
exception. If you find a bug please either email me, or add the bug
to cpan-RT.
-=head1 AUTHOR
+=head1 AUTHORS
Shawn M Moore E<lt>sartak@gmail.comE<gt>
+Dave Rolsky E<lt>autarch@urth.orgE<gt>
+
=head1 SOME CODE STOLEN FROM
Anders Nor Berle E<lt>debolaz@gmail.comE<gt>
=head1 COPYRIGHT AND LICENSE
-Copyright 2007 Shawn M Moore.
+Copyright 2007, 2008 Infinity Interactive
This program is free software; you can redistribute it and/or modify it under
the same terms as Perl itself.