The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
package Scene::Graph::Transforms::Scalable;
use Moose::Role;

requires 'scale';

has '+is_scalable' => (
    default => 1
);


1;

__END__

=head1 NAME

Scene::Graph::Transforms::Scalable - A Scalable Node Role

=head1 DESCRIPTION

Requires that the composing class have a C<scale> method and sets the
C<is_scalable> attribute to true.

=head1 AUTHOR

Cory G Watson, C<< <gphat at cpan.org> >>

=head1 ACKNOWLEDGEMENTS

=head1 COPYRIGHT & LICENSE

Copyright 2010 Cold Hard Code, LLC.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.