NAME

Class::Param::Callback - Param instance with callbacks

SYNOPSIS

    %store  = ();
    $param = Class::Param::Callback->new(
        get    => sub { return $store{ $_[1] }         },
        set    => sub { return $store{ $_[1] } = $_[2] },
        has    => sub { return exists $store{ $_[1] }  },
        names  => sub { return keys %store             },
        remove => sub { return delete $store{ $_[1] }  }
    );

DESCRIPTION

Construct a params instance using callbacks.

METHODS

new

This method takes a hash of parameters. The following options are valid:

get

    get => sub {
        my ( $self, $name ) = @_;
        return $hash{ $name };
    }

Required.

set

    set => sub {
        my ( $self, $name, $value ) = @_;
        return $hash{ $name } = $value;
    }

Required.

names

    names => sub {
        my ( $self ) = @_;
        return keys %hash;
    }

Required.

remove

    remove => sub {
        my ( $self, $name ) = @_;
        return delete $hash{ $name };
    }

Required.

clear

    clear => sub {
        my ( $self ) = @_;
        return %hash = ();
    }

Optional.

count

    count => sub {
        my ( $self ) = @_;
        return scalar keys %hash;
    }

Optional.

has

    has => sub {
        my ( $self, $name ) = @_;
        return exists $hash{ $name };
    }

Optional.

param

    param => sub { }

Optional. See Class::Param::Base for expected behavior.

add

    add => sub { }

Optional. See Class::Param::Base for expected behavior.

scan

    scan => sub { }

Optional. See Class::Param::Base for expected behavior.

as_hash

    param => sub { }

Optional. See Class::Param::Base for expected behavior.

SEE ASLO

Class::Param.

AUTHOR

Christian Hansen chansen@cpan.org

COPYRIGHT

This program is free software, you can redistribute it and/or modify it under the same terms as Perl itself.