/ 
Venus-4.11
River stage two • 3 direct dependents • 56 total dependents
6 ++
/ Venus::Role::Accessible

NAME

Venus::Role::Accessible - Accessible Role

ABSTRACT

Accessible Role for Perl 5

SYNOPSIS

  package Example;

  use Venus::Class;

  with 'Venus::Role::Accessible';

  attr 'value';

  sub downcase {
    lc $_[0]->value
  }

  sub upcase {
    uc $_[0]->value
  }

  package main;

  my $example = Example->new(value => 'hello, there');

  # $example->value;

DESCRIPTION

This package modifies the consuming package and provides the access method for getting and setting attributes.

METHODS

This package provides the following methods:

access

  access(string $name, any $value) (any)

The access method gets or sets the class attribute specified.

Since 1.23

access example 1
  # given: synopsis

  package main;

  my $access = $example->access;

  # undef
access example 2
  # given: synopsis

  package main;

  my $access = $example->access('value');

  # "hello, there"
access example 3
  # given: synopsis

  package main;

  my $access = $example->access('value', 'something');

  # "something"
access example 4
  # given: synopsis

  package main;

  my $instance = $example;

  # bless({}, "Example")

  $example->access('value', 'something');

  # "something"

  $instance = $example;

  # bless({value => "something"}, "Example")

assign

  assign(string $name, string | coderef $code, any @args) (any)

The assign method dispatches the method call or executes the callback, sets the class attribute specified to the result, and returns the result.

Since 1.23

assign example 1
  # given: synopsis

  package main;

  my $assign = $example->assign('value', 'downcase');

  # "hello, there"
assign example 2
  # given: synopsis

  package main;

  my $assign = $example->assign('value', 'upcase');

  # "HELLO, THERE"
assign example 3
  # given: synopsis

  package main;

  my $instance = $example;

  # bless({value => "hello, there"}, "Example")

  my $assign = $example->assign('value', 'downcase');

  # "hello, there"

  $instance = $example;

  # bless({value => "hello, there"}, "Example")

AUTHORS

Awncorp, awncorp@cpan.org

LICENSE

Copyright (C) 2000, Awncorp, awncorp@cpan.org.

This program is free software, you can redistribute it and/or modify it under the terms of the Apache license version 2.0.