MooseX::Attribute::Prototype::Object - Attribute Prototype Class

    use MooseX::Attribute::Prototype::Object;

    my $proto = MooseX::Attribute::Prototype::Object->new(
        name => 'MooseX::Foo/bar' ,  # The 'bar' attribute from MooseX::Foo.pm
    );

    # -OR-

    my $proto = MooseX::Attribute::Prototype::Object->new( 
        name => 'MooseX::Foo' ,      # The 'foo' attribute the MooseX::Foo.pm
    };

    perldoc MooseX::Attribute::Prototype

package MooseX::Attribute::Prototype::Object;

    use Moose;
    our $VERSION = '0.10';
    our $AUTHORITY = 'cpan:CTBROWN';

    has 'name' => ( 
        is            => 'rw' , #rw
        isa           => 'Str' ,
        required      => 1 ,
        documentation  => 'Name for atttribute prototype: [$role/$attribute]' ,
        trigger       => 
            sub {
                my ( $self, $val, $meta ) = @_;

                if ( $val =~ /\// ) {       # prototype => MyRole/my_attr: 
                    $val =~ m/(.*)\/(.*)/;

                    $self->role( $1 ) ;
                    $self->attribute( $2 );

                } else { # prototype => MyRole equivalent to MyRole/myrole 
                                        
                    $self->role($val);
                    $val =~ s/.*:://;
                    $self->attribute( lc($val) );

                }

            }   
    );



    has 'role' => (
        is            => 'rw' ,
        isa           => 'Str' ,
        required      => 0 ,
        lazy_build    => 1 ,
        documentation => "Role name of the Prototype role" ,
    );

      sub _build_role {
        
        my $name = $_[0]->name;
        my $role;

        $name =~ m/(^.*)::(.*$)/; 
    
        if ( $name =~ /\// ) {
            $name =~ m/(.*)\/(.*)/;
            $role = $1;
        } else {
            $name =~ s/.*:://; 
            $role = $name; 
        }

        return $role;

      }
        

    has 'attribute' => ( 
        is            => 'rw' ,
        isa           => 'Str' ,
        required      => 0 ,
        lazy_build    => 1 ,
        documentation  => "Attribute name from prototype role." ,
    );

      sub _build_attribute {

          my $name = $_[0]->name;
          my $attribute;
          
          if ( $_->name =~ /\// ) {
             $_[0]->name =~ m/(.*)\/(.*)/;
             $attribute = $2;   
          } else {
             $name =~ s/.*:://;
             $attribute = $name;
          }
             
          return $attribute;

      }


    has 'options'   => (
        is            => 'rw' ,
        isa           => 'HashRef' ,
        required      => 1 ,
        default       => sub { {} } ,
        documentation => "The options specifications for the attribute" ,
    );

    has 'referenced' => (
        is            => 'rw' ,
        isa           => 'Bool' ,
        required      => 1 ,
        default       => 0 ,
        documentation => "Indicates if the attibute has been referenced as a prototype" , 
    );

    sub get_prototype_options {
        return $_[0]->options; 
    } 

    no Moose;
    

1; # End of module MooseX::Attribute::Prototype::Object