https://github.com/monken/p5-moosex-chainedaccessors

Accessor class for chained accessors with Moose
https://github.com/monken/p5-moosex-chainedaccessors

Last synced: about 1 month ago
JSON representation

Accessor class for chained accessors with Moose

• Host: GitHub
• URL: https://github.com/monken/p5-moosex-chainedaccessors
• Owner: monken
• Created: 2011-03-01T10:22:26.000Z (almost 14 years ago)
• Default Branch: master
• Last Pushed: 2016-01-19T22:23:52.000Z (almost 9 years ago)
• Last Synced: 2024-10-15T16:23:38.537Z (3 months ago)
• Language: Perl
• Homepage:
• Size: 94.7 KB
• Stars: 2
• Watchers: 3
• Forks: 1
• Open Issues: 2
• Metadata Files:
  • Readme: README.pod
  • Changelog: Changes

Awesome Lists containing this project

README

        
package MooseX::ChainedAccessors;

# ABSTRACT: DEPRECATED

use strict;

use warnings;

use Carp qw(confess);

use Try::Tiny;

use base 'Moose::Meta::Method::Accessor';

sub _generate_accessor_method_inline {

    my $self = shift;

    my $attr = $self->associated_attribute;

    return try {

        $self->_compile_code([

            'sub {',

                'if (@_ > 1) {',

                    $attr->_inline_set_value('$_[0]', '$_[1]'),

                    'return $_[0];',

                '}',

                $attr->_inline_get_value('$_[0]'),

            '}',

        ]);

    }

    catch {

        confess "Could not generate inline accessor because : $_";

    };

}

sub _generate_writer_method_inline {

    my $self = shift;

    my $attr = $self->associated_attribute;

    return try {

        $self->_compile_code([

            'sub {',

                $attr->_inline_set_value('$_[0]', '$_[1]'),

                '$_[0]',

            '}',

        ]);

    }

    catch {

        confess "Could not generate inline writer because : $_";

    };

}

1;

__END__

=head1 DESCRIPTION

Deprecated in favor of L.