File Coverage

blib/lib/Terse/Plugin/Glitch.pm

Criterion	Covered	Total	%
statement	20	46	43.4
branch	0	12	0.0
condition			n/a
subroutine	7	13	53.8
pod	2	4	50.0
total	29	75	38.6

package Terse::Plugin::Glitch;
use 5.006; use strict; use warnings;
our $VERSION = '0.02';
use Glitch;
use YAML::XS;
use JSON;
use base 'Terse::Plugin';

sub build_plugin {
	my ($self) = @_;
	$self->build_glitch_config if $self->can('build_glitch_config');
    	if (!$self->glitch_config) {
                my $file = $0;
                ($self->glitch_config = $0) =~ s/(\.psgi)?$/.glitch/;
        }
	if ($self->{format} eq 'YAML') {
		$self->{glitch_config_parser} = sub { YAML::XS::Load($_[0]) };
	} elsif ($self->{format} eq 'JSON') {
		$self->{glitch_config_parser} = sub { JSON->new->encode($_[0]) };
	}
	Glitch::build_meta(
		map {($_, $self->{$_})} grep {$_ !~ m/^(namespace|format|app)$/} keys %{$self}
	);
}

sub call {
	my ($self, $name) = @_;
	eval { glitch($name) };
	return $@;
}

sub logError {
	my ($self, $t, $name, $status) = @_;
	my $glitch = $self->call($name);
	$self->extend($glitch) if $self->can('extend');
	$t->logError($glitch->hash, $status);
}

sub logInfo {
	my ($self, $t, $name, $status) = @_;
	my $glitch = $self->call($name);
	$self->extend($glitch) if $self->can('extend');
	$t->logInfo($glitch->hash);
}

1;

__END__