lib/MooseX/AttributeHelpers/Number.pm

   1 package MooseX::AttributeHelpers::Number;
   2 use Moose;
   3 use MooseX::AttributeHelpers::Sugar;
   4
   5 extends 'MooseX::AttributeHelpers::Base';
   6
   7 our $VERSION   = '0.02';
   8 our $AUTHORITY = 'cpan:STEVAN';
   9
  10 define_attribute_helper (
  11     helper_type      => 'Num',
  12     method_provider  => 'MooseX::AttributeHelpers::MethodProvider::Number',
  13     shortcut         => 'Number',
  14 );
  15
  16 no Moose;
  17 no MooseX::AttributeHelpers::Sugar;
  18
  19 1;
  20
  21 __END__
  22
  23 =pod
  24
  25 =head1 NAME
  26
  27 MooseX::AttributeHelpers::Number
  28
  29 =head1 SYNOPSIS
  30
  31   package Real;
  32   use Moose;
  33   use MooseX::AttributeHelpers;
  34
  35   has 'integer' => (
  36       metaclass => 'Number',
  37       is        => 'ro',
  38       isa       => 'Int',
  39       default   => sub { 5 },
  40       provides  => {
  41           set => 'set',
  42           add => 'add',
  43           sub => 'sub',
  44           mul => 'mul',
  45           div => 'div',
  46           mod => 'mod',
  47           abs => 'abs',
  48       }
  49   );
  50
  51   my $real = Real->new();
  52   $real->add(5); # same as $real->integer($real->integer + 5);
  53   $real->sub(2); # same as $real->integer($real->integer - 2);
  54
  55 =head1 DESCRIPTION
  56
  57 This provides a simple numeric attribute, which supports most of the
  58 basic math operations.
  59
  60 =head1 METHOD PROVIDER
  61
  62 The methods for this metaclass are provided by
  63 L<MooseX::AttributeHelpers::MethodProvider::String>.
  64
  65 =head1 BUGS
  66
  67 All complex software has bugs lurking in it, and this module is no
  68 exception. If you find a bug please either email me, or add the bug
  69 to cpan-RT.
  70
  71 =head1 AUTHOR
  72
  73 Robert Boone
  74
  75 =head1 COPYRIGHT AND LICENSE
  76
  77 Copyright 2007-2008 by Infinity Interactive, Inc.
  78
  79 L<http://www.iinteractive.com>
  80
  81 This library is free software; you can redistribute it and/or modify
  82 it under the same terms as Perl itself.
  83
  84 =cut