Property::Lookup::Hash - Hash-based property lookup layer


Property-Lookup documentation Contained in the Property-Lookup distribution.

Index


Code Index:

NAME

Top

Property::Lookup::Hash - Hash-based property lookup layer

VERSION

Top

version 1.101400

SYNOPSIS

Top

    use Property::Lookup;

    my %opt;
    GetOptions(\%opt, '...');

    my $config = Property::Lookup->new;
    $config->add_layer(file => 'conf.yaml');
    $config->add_layer(getopt => \%opt);
    $config->default_layer({
        foo => 23,
    });

    my $foo = $config->foo;

    # ...

    use Property::Lookup::Local;
    local %Property::Lookup::Local::opt = (bar => 'baz');

DESCRIPTION

Top

This class implements a hash-based property lookup layer.

METHODS

Top

hash

This hash accessor holds the hash in which values are being looked up.

get_config

Returns the hash with which this layer was configured.

AUTOLOAD

Determines which key is being looked up, the simply consults the hash accessor for that key.

INSTALLATION

Top

See perlmodinstall for information and options on installing Perl modules.

BUGS AND LIMITATIONS

Top

No bugs have been reported.

Please report any bugs or feature requests through the web interface at http://rt.cpan.org/Public/Dist/Display.html?Name=Property-Lookup.

AVAILABILITY

Top

The latest version of this module is available from the Comprehensive Perl Archive Network (CPAN). Visit http://www.perl.com/CPAN/ to find a CPAN site near you, or see http://search.cpan.org/dist/Property-Lookup/.

The development version lives at http://github.com/hanekomu/Property-Lookup/. Instead of sending patches, please fork this project using the standard git and github infrastructure.

AUTHOR

Top

  Marcel Gruenauer <marcel@cpan.org>

COPYRIGHT AND LICENSE

Top


Property-Lookup documentation Contained in the Property-Lookup distribution.

use 5.008;
use strict;
use warnings;

package Property::Lookup::Hash;
BEGIN {
  $Property::Lookup::Hash::VERSION = '1.101400';
}
# ABSTRACT: Hash-based property lookup layer
use parent 'Property::Lookup::Base';
__PACKAGE__->mk_hash_accessors(qw(hash));

sub AUTOLOAD {
    my $self = shift;
    (my $method = our $AUTOLOAD) =~ s/.*://;
    $self->hash($method);
}

sub get_config {
    my $self = shift;
    $self->hash;
}

1;


__END__