MooseX::ChainedAccessors::Accessor - MooseX::ChainedAccessors::Accessor documentation

#
# This file is part of MooseX-ChainedAccessors
#
# This software is copyright (c) 2011 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.
#
package MooseX::ChainedAccessors::Accessor;
BEGIN {
  $MooseX::ChainedAccessors::Accessor::VERSION = '0.02';
}
use strict;
use warnings;
use base 'Moose::Meta::Method::Accessor';

sub _inline_post_body {
    return 'return $_[0] if (scalar(@_) >= 2);' . "\n";
}
1;

__END__