lib/Moose/Autobox.pm

   1
   2 package Moose::Autobox;
   3
   4 use strict;
   5 use warnings;
   6
   7 use Moose        qw(confess);
   8 use Scalar::Util ();
   9
  10 our $VERSION = '0.01';
  11
  12 sub import {
  13     eval q|
  14 package SCALAR;
  15 use Moose;
  16 with 'Moose::Autobox::Scalar';
  17
  18 package ARRAY;
  19 use Moose;
  20 with 'Moose::Autobox::Array';
  21
  22 package HASH;
  23 use Moose;
  24 with 'Moose::Autobox::Hash';
  25
  26 package CODE;
  27 use Moose;
  28 with 'Moose::Autobox::Code';
  29     |;
  30     confess 'Could not create autobox packages because - ' . $@ if $@;
  31 }
  32
  33 1;
  34
  35 __END__
  36
  37 =pod
  38
  39 =head1 NAME
  40
  41 Moose::Autobox - autoboxed for her pleasure
  42
  43 =head1 SYNOPOSIS
  44
  45 =head1 DESCRIPTION
  46
  47   Any
  48   Item
  49       Bool
  50       Undef
  51       Defined
  52           Value
  53               Num
  54                 Int
  55               Str
  56           Ref
  57               ScalarRef
  58               ArrayRef
  59               HashRef
  60               CodeRef
  61               RegexpRef
  62               Object
  63                   Role
  64
  65
  66 =head1 BUGS
  67
  68 All complex software has bugs lurking in it, and this module is no
  69 exception. If you find a bug please either email me, or add the bug
  70 to cpan-RT.
  71
  72 =head1 AUTHOR
  73
  74 Stevan Little E<lt>stevan@iinteractive.comE<gt>
  75
  76 =head1 COPYRIGHT AND LICENSE
  77
  78 Copyright 2006 by Infinity Interactive, Inc.
  79
  80 L<http://www.iinteractive.com>
  81
  82 This library is free software; you can redistribute it and/or modify
  83 it under the same terms as Perl itself.
  84
  85
  86 =cut
  87
  88