File Coverage

lib/Morpheus/Plugin/Simple.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch	5	6	83.3
condition			n/a
subroutine	7	7	100.0
pod	0	3	0.0
total	32	36	88.8

package Morpheus::Plugin::Simple;
{
  $Morpheus::Plugin::Simple::VERSION = '0.46';
}
use strict;
use warnings;

# ABSTRACT: plugin for simple static configuration

use Morpheus::Utils qw(normalize);

sub new ($$) {
    my ($class, $data) = @_;
    my $_data = $data;
    $data = sub { $_data } unless ref $data eq "CODE";
    bless {
        data => $data,
    } => $class;
}

sub list ($$) {
    return ('' => '');
}

sub get ($$) {
    my ($self, $token) = @_;
    die 'mystery' if $token;

    if (ref $self->{data} eq "CODE") {
        $self->{data} = normalize($self->{data}->());
    }

    return $self->{data};
}

1;

__END__