use strict;
use warnings;
-our $VERSION = '0.02';
+our $VERSION = '0.03_01';
use Scalar::Util 'blessed', 'reftype';
use Carp 'confess';
use Class::MOP;
use Moose::Meta::Class;
-use Moose::Meta::Attribute;
use Moose::Meta::TypeConstraint;
use Moose::Meta::TypeCoercion;
+use Moose::Meta::Attribute;
use Moose::Object;
use Moose::Util::TypeConstraints;
# we should never export to main
return if $pkg eq 'main';
- Moose::Util::TypeConstraints->import($pkg);
+ #Moose::Util::TypeConstraints->import($pkg);
# make a subtype for each Moose class
subtype $pkg
- => as Object
+ => as 'Object'
=> where { $_->isa($pkg) };
my $meta;
if ($pkg->can('meta')) {
$meta = $pkg->meta();
(blessed($meta) && $meta->isa('Class::MOP::Class'))
- || confess "Whoops, not møøsey enough";
+ || confess "Whoops, not møøsey enough";
}
else {
$meta = Moose::Meta::Class->initialize($pkg => (
# handle superclasses
$meta->alias_method('extends' => subname 'Moose::extends' => sub {
- $_->require for @_;
+ _load_all_classes(@_);
$meta->superclasses(@_)
});
+ # handle roles
+ $meta->alias_method('with' => subname 'Moose::with' => sub {
+ my ($role) = @_;
+ _load_all_classes($role);
+ $role->meta->apply($meta);
+ });
+
# handle attributes
$meta->alias_method('has' => subname 'Moose::has' => sub {
my ($name, %options) = @_;
- if (exists $options{is}) {
- if ($options{is} eq 'ro') {
- $options{reader} = $name;
- }
- elsif ($options{is} eq 'rw') {
- $options{accessor} = $name;
- }
- }
- if (exists $options{isa}) {
- # allow for anon-subtypes here ...
- if (blessed($options{isa}) && $options{isa}->isa('Moose::Meta::TypeConstraint')) {
- $options{type_constraint} = $options{isa};
- }
- else {
- # otherwise assume it is a constraint
- my $constraint = find_type_constraint($options{isa});
- # if the constraing it not found ....
- unless (defined $constraint) {
- # assume it is a foreign class, and make
- # an anon constraint for it
- $constraint = subtype Object => where { $_->isa($options{isa}) };
- }
- $options{type_constraint} = $constraint;
- }
- }
$meta->add_attribute($name, %options)
});
my $code = pop @_;
$meta->add_around_method_modifier($_, $code) for @_;
});
+
+ $meta->alias_method('super' => subname 'Moose::super' => sub {});
+ $meta->alias_method('override' => subname 'Moose::override' => sub {
+ my ($name, $method) = @_;
+ $meta->add_override_method_modifier($name => $method);
+ });
+
+ $meta->alias_method('inner' => subname 'Moose::inner' => sub {});
+ $meta->alias_method('augment' => subname 'Moose::augment' => sub {
+ my ($name, $method) = @_;
+ $meta->add_augment_method_modifier($name => $method);
+ });
# make sure they inherit from Moose::Object
$meta->superclasses('Moose::Object')
$meta->alias_method('blessed' => \&Scalar::Util::blessed);
}
+## Utility functions
+
+sub _load_all_classes {
+ foreach my $super (@_) {
+ # see if this is already
+ # loaded in the symbol table
+ next if _is_class_already_loaded($super);
+ # otherwise require it ...
+ ($super->require)
+ || confess "Could not load superclass '$super' because : " . $UNIVERSAL::require::ERROR;
+ }
+}
+
+sub _is_class_already_loaded {
+ my $name = shift;
+ no strict 'refs';
+ return 1 if defined ${"${name}::VERSION"} || defined @{"${name}::ISA"};
+ foreach (keys %{"${name}::"}) {
+ next if substr($_, -2, 2) eq '::';
+ return 1 if defined &{"${name}::$_"};
+ }
+ return 0;
+}
+
1;
__END__
=head1 CAVEAT
-This is a B<very> early release of this module, it still needs
+This is an early release of this module, it still needs
some fine tuning and B<lots> more documentation. I am adopting
the I<release early and release often> approach with this module,
so keep an eye on your favorite CPAN mirror!
all instance slots, setting defaults where approprtiate and performing any
type constraint checking or coercion.
+For more details, see the ever expanding L<Moose::Cookbook>.
+
=head1 EXPORTED FUNCTIONS
Moose will export a number of functions into the class's namespace, which
replace it. This is important to ensure that classes which do not have
superclasses properly inherit from L<Moose::Object>.
+=item B<with ($role)>
+
+This will apply a given C<$role> to the local class. Role support is
+currently very experimental, see L<Moose::Role> for more details.
+
=item B<has ($name, %options)>
This will install an attribute of a given C<$name> into the current class.
modifier features that L<Class::MOP> provides. More information on these can
be found in the L<Class::MOP> documentation for now.
+=item B<super>
+
+The keyword C<super> is a noop when called outside of an C<override> method. In
+the context of an C<override> method, it will call the next most appropriate
+superclass method with the same arguments as the original method.
+
+=item B<override ($name, &sub)>
+
+An C<override> method, is a way of explictly saying "I am overriding this
+method from my superclass". You can call C<super> within this method, and
+it will work as expected. The same thing I<can> be accomplished with a normal
+method call and the C<SUPER::> pseudo-package, it is really your choice.
+
+=item B<inner>
+
+The keyword C<inner>, much like C<super>, is a no-op outside of the context of
+an C<augment> method. You can think of C<inner> as being the inverse of
+C<super>, the details of how C<inner> and C<augment> work is best described in
+the L<Moose::Cookbook>.
+
+=item B<augment ($name, &sub)>
+
+An C<augment> method, is a way of explictly saying "I am augmenting this
+method from my superclass". Once again, the details of how C<inner> and
+C<augment> work is best described in the L<Moose::Cookbook>.
+
=item B<confess>
This is the C<Carp::confess> function, and exported here beause I use it
=back
+=head1 CAVEATS
+
+=over 4
+
+=item *
+
+It should be noted that C<super> and C<inner> can B<not> be used in the same
+method. However, they can be combined together with the same class hierarchy,
+see F<t/014_override_augment_inner_super.t> for an example.
+
+The reason that this is so is because C<super> is only valid within a method
+with the C<override> modifier, and C<inner> will never be valid within an
+C<override> method. In fact, C<augment> will skip over any C<override> methods
+when searching for it's appropriate C<inner>.
+
+This might seem like a restriction, but I am of the opinion that keeping these
+two features seperate (but interoperable) actually makes them easy to use since
+their behavior is then easier to predict. Time will tell if I am right or not.
+
+=back
+
=head1 ACKNOWLEDGEMENTS
=over 4
-=item I blame Sam Vilain for giving me my first hit of meta-model crack.
+=item I blame Sam Vilain for introducing me to the insanity that is meta-models.
-=item I blame Audrey Tang for encouraging that meta-crack habit in #perl6.
+=item I blame Audrey Tang for then encouraging my meta-model habit in #perl6.
=item Without Yuval "nothingmuch" Kogman this module would not be possible,
-and it would certainly have a name ;P
+and it certainly wouldn't have this name ;P
=item The basis of the TypeContraints module was Rob Kinyon's idea
originally, I just ran with it.
=item L<http://forum2.org/moose/>
+=item L<http://www.cs.utah.edu/plt/publications/oopsla04-gff.pdf>
+
+This paper (suggested by lbr on #moose) was what lead to the implementation
+of the C<super>/C<overrride> and C<inner>/C<augment> features. If you really
+want to understand this feature, I suggest you read this.
+
=back
=head1 BUGS
projects / gitmo/Moose.git / blobdiff