The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.

NAME

MooseX::Attribute::Chained - Attribute that returns the instance to allow for chaining

VERSION

version 1.0.1

SYNOPSIS

  package Test;
  use Moose;

  has debug => (
      traits => [ 'Chained' ],
      is => 'rw',
      isa => 'Bool',
  );

  sub complex_method
  {
      my $self = shift;
    
      #...
    
      print "helper message" if $self->debug;
    
      #...
  }


  1;

Which allows for:

    my $test = Test->new;
    $test->debug(1)->complex_method;

    $test->debug(1); # returns $test
    $test->debug;    # returns 1

DESCRIPTION

MooseX::Attribute::Chained is a Moose Trait which allows for method chaining on accessors by returning $self on write/set operations.

AUTHORS

  • Moritz Onken <onken@netcubed.de>

  • David McLaughlin <david@dmclaughlin.com>

COPYRIGHT AND LICENSE

This software is copyright (c) 2012 by Moritz Onken.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.