view release on metacpan or  search on metacpan

lib/Connector/Builtin/Static.pm  view on Meta::CPAN

# Connector::Builtin::Static
#
# Simple connector returning a static value for all requests
#
package Connector::Builtin::Static;

use strict;
use warnings;
use English;

use Moose;
extends 'Connector::Builtin';

sub get {
    my $self = shift;
    my $arg = shift;

    return $self->{LOCATION};
}

sub get_meta {

    my $self = shift;
    return { TYPE  => "scalar", VALUE => $self->{LOCATION} };
}

sub exists {

    my $self = shift;
    return 1;

}

no Moose;
__PACKAGE__->meta->make_immutable;

1;
__END__

=head1 Name

Connector::Builtin::Simple

=head1 Description

Return a static value regardless of the requested key.
Set the value using the "LOCATION" parameter. Supports only
scalar values using the get/get_meta call.