our $VERSION = '0.01';
our $AUTHORITY = 'cpan:STEVAN';
-use base 'Moose::Meta::Method';
+use base 'Moose::Meta::Method',
+ 'Class::MOP::Method::Generated';
sub new {
my $class = shift;
Moose::Meta::Method::Destructor - Method Meta Object for destructors
-=head1 SYNOPSIS
-
=head1 DESCRIPTION
+This is a subclass of L<Class::MOP::Method> which handles
+constructing an approprate Destructor method. This is primarily
+used in the making of immutable metaclasses, otherwise it is
+not particularly useful.
+
=head1 METHODS
=over 4
=head1 COPYRIGHT AND LICENSE
-Copyright 2006, 2007 by Infinity Interactive, Inc.
+Copyright 2006-2008 by Infinity Interactive, Inc.
L<http://www.iinteractive.com>