File Coverage

blib/lib/Raisin/Encoder.pm

Criterion	Covered	Total	%
statement	34	34	100.0
branch			n/a
condition			n/a
subroutine	10	10	100.0
pod	5	6	83.3
total	49	50	98.0

#!perl
#PODNAME: Raisin::Encoder
#ABSTRACT: A helper for L over encoder modules

use strict;
use warnings;

package Raisin::Encoder;
$Raisin::Encoder::VERSION = '0.94';
use Plack::Util;
use Plack::Util::Accessor qw(registered);

sub new { bless { registered => {} }, shift }

sub register {
    my ($self, $format, $class) = @_;
    $self->{registered}{$format} = $class;
}

sub builtin {
    {
        json => 'Raisin::Encoder::JSON',
        yaml => 'Raisin::Encoder::YAML',
        text => 'Raisin::Encoder::Text',
    };
}

sub all {
    my $self = shift;
    my %s = (
        %{ $self->builtin },
        %{ $self->registered },
    );
    \%s;
}

sub for {
    my ($self, $format) = @_;
    $self->all->{$format};
}

sub media_types_map_flat_hash {
    my $self = shift;
    my $s = $self->all;

    my %media_types_map = map {
        Plack::Util::load_class($s->{$_});
        $_ => $s->{$_}->detectable_by;
    } keys %$s;

    my %media_types_map_flat_hash = map {
        my $k = $_; map { $_ => $k } @{ $media_types_map{$k} }
    } keys %media_types_map;

    %media_types_map_flat_hash;
}

1;

__END__