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

NAME

Data::MultiValued::AttributeTrait::Tags - attribute traits for attributes holding tagged values

VERSION

version 0.0.1_4

SYNOPSIS

  package My::Class;
  use Moose;
  use Data::MultiValued::AttributeTrait::Tags;

  has stuff => (
    is => 'rw',
    isa => 'Int',
    traits => ['MultiValued::Tags'],
    predicate => 'has_stuff',
    multi_accessor => 'stuff_tagged',
    multi_predicate => 'has_stuff_tagged',
  );

DESCRIPTION

This role consumes Data::MultiValued::AttributeTrait and specialises it to use Data::MultiValued::Tags as multi-value storage:

multivalue_storage_class

Returns 'Data::MultiValued::Tags'.

opts_to_pass_set

Returns ('tag').

opts_to_pass_get

Returns ('tag').

AUTHOR

Gianni Ceccarelli <dakkar@thenautilus.net>

COPYRIGHT AND LICENSE

This software is copyright (c) 2011 by Net-a-Porter.com.

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