File Coverage

blib/lib/Geoffrey/Role/Changelog.pm

Criterion	Covered	Total	%
statement	30	36	83.3
branch			n/a
condition	2	6	33.3
subroutine	13	16	81.2
pod	12	12	100.0
total	57	70	81.4

package Geoffrey::Role::Changelog;

use utf8;
use 5.016;
use strict;
use warnings;

$Geoffrey::Role::Changelog::VERSION = '0.000203';

sub new {
    my $class = shift;
    my $self  = {@_};
    $self->{needs_converter} = 0;
    $self->{needs_dbh}       = 0;
    return bless $self, $class;
}

sub tpl_main {
    require Geoffrey::Exception::NotSupportedException;
    return Geoffrey::Exception::NotSupportedException::throw_file('tpl_main', $_[0]);
}

sub tpl_sub {
    require Geoffrey::Exception::NotSupportedException;
    return Geoffrey::Exception::NotSupportedException::throw_file('tpl_sub', $_[0]);
}

sub load {
    require Geoffrey::Exception::NotSupportedException;
    return Geoffrey::Exception::NotSupportedException::throw_file('load', $_[0]);
}

sub write {
    require Geoffrey::Exception::NotSupportedException;
    return Geoffrey::Exception::NotSupportedException::throw_file('write', $_[0]);
}

sub insert {
    require Geoffrey::Exception::NotSupportedException;
    return Geoffrey::Exception::NotSupportedException::throw_changelog('insert', shift);
}

sub delete {
    require Geoffrey::Exception::NotSupportedException;
    return Geoffrey::Exception::NotSupportedException::throw_changelog('delete', shift);
}

sub load_changeset {
    require Geoffrey::Exception::NotSupportedException;
    return Geoffrey::Exception::NotSupportedException::throw_io_call('load_changeset', shift);
}

sub ending { $_[0]->{extension} //= $_[0]->{ending}; return $_[0]->{extension}; }

sub extension { $_[0]->{extension} //= $_[0]->{ending}; return $_[0]->{extension}; }

sub needs_converter { return $_[0]->{needs_converter}; }

sub needs_dbh { return $_[0]->{needs_dbh}; }


1;    # End of Geoffrey::Role::Changelog

__END__