lib/Moose/Meta/Attribute/Native/MethodProvider/Bool.pm

   1
   2 package Moose::Meta::Attribute::Native::MethodProvider::Bool;
   3 use Moose::Role;
   4
   5 our $VERSION   = '0.87';
   6 $VERSION = eval $VERSION;
   7 our $AUTHORITY = 'cpan:STEVAN';
   8
   9 sub set : method {
  10     my ( $attr, $reader, $writer ) = @_;
  11     return sub { $writer->( $_[0], 1 ) };
  12 }
  13
  14 sub unset : method {
  15     my ( $attr, $reader, $writer ) = @_;
  16     return sub { $writer->( $_[0], 0 ) };
  17 }
  18
  19 sub toggle : method {
  20     my ( $attr, $reader, $writer ) = @_;
  21     return sub { $writer->( $_[0], !$reader->( $_[0] ) ) };
  22 }
  23
  24 sub not : method {
  25     my ( $attr, $reader, $writer ) = @_;
  26     return sub { !$reader->( $_[0] ) };
  27 }
  28
  29 1;
  30
  31 __END__
  32
  33 =pod
  34
  35 =head1 NAME
  36
  37 Moose::Meta::Attribute::Native::MethodProvider::Bool
  38
  39 =head1 DESCRIPTION
  40
  41 This is a role which provides the method generators for
  42 L<Moose::Meta::Attribute::Trait::Native::Bool>.
  43
  44 =head1 METHODS
  45
  46 =over 4
  47
  48 =item B<meta>
  49
  50 =back
  51
  52 =head1 PROVIDED METHODS
  53
  54 =over 4
  55
  56 =item B<set>
  57
  58 =item B<unset>
  59
  60 =item B<toggle>
  61
  62 =item B<not>
  63
  64 =back
  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 Jason May E<lt>jason.a.may@gmail.comE<gt>
  75
  76 =head1 COPYRIGHT AND LICENSE
  77
  78 Copyright 2007-2009 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 =cut