lib/Moose/Autobox/Scalar.pm

   1 package Moose::Autobox::Scalar;
   2 use Moose::Role 'with';
   3
   4 our $VERSION = '0.01';
   5
   6 with 'Moose::Autobox::String',
   7      'Moose::Autobox::Number';
   8
   9 sub print { CORE::print $_[0] }
  10 sub say   { CORE::print $_[0], "\n" }
  11 1;
  12
  13 __END__
  14
  15 =pod
  16
  17 =head1 NAME
  18
  19 Moose::Autobox::Scalar - the Scalar role
  20
  21 =head1 DESCRIPTION
  22
  23 This is a role to describes a Scalar value, which is defined
  24 as the combination (union sort of) of a String and a Number.
  25
  26 =head1 METHODS
  27
  28 =over 4
  29
  30 =item B<meta>
  31
  32 =item B<print>
  33
  34 =item B<say>
  35
  36 =back
  37
  38 =head1 BUGS
  39
  40 All complex software has bugs lurking in it, and this module is no
  41 exception. If you find a bug please either email me, or add the bug
  42 to cpan-RT.
  43
  44 =head1 AUTHOR
  45
  46 Stevan Little E<lt>stevan@iinteractive.comE<gt>
  47
  48 =head1 COPYRIGHT AND LICENSE
  49
  50 Copyright 2006-2008 by Infinity Interactive, Inc.
  51
  52 L<http://www.iinteractive.com>
  53
  54 This library is free software; you can redistribute it and/or modify
  55 it under the same terms as Perl itself.
  56
  57 =cut