File Coverage

blib/lib/StaticVolt/Convertor.pm

Criterion	Covered	Total	%
statement	18	19	94.7
branch	1	2	50.0
condition			n/a
subroutine	6	6	100.0
pod	3	3	100.0
total	28	30	93.3

# ABSTRACT: Base class for StaticVolt convertors

package StaticVolt::Convertor;
{
  $StaticVolt::Convertor::VERSION = '1.00';
}

use strict;
use warnings;

my %convertor;

sub has_convertor {
    my ( $self, $extension ) = @_;

    if ( exists $convertor{$extension} ) {
        return 1;
    }
    return;
}

sub convert {
    my ( $self, $content, $extension ) = @_;

    no strict 'refs';
    return &{"${convertor{$extension}}::convert"}($content);
}

sub register {
    my ( $class, @extensions ) = @_;

    for my $extension (@extensions) {
        $convertor{$extension} = $class;
    }
}

1;

__END__