File Coverage

blib/lib/Test/DBChanges/Role/Triggers.pm

Criterion	Covered	Total	%
statement	8	18	44.4
branch			n/a
condition	0	2	0.0
subroutine	3	6	50.0
pod	1	2	50.0
total	12	28	42.8

package Test::DBChanges::Role::Triggers;
use Moo::Role;
use 5.024;
use namespace::autoclean;

our $VERSION = '1.0.1'; # VERSION
# ABSTRACT: fetches data recorded by triggers


sub db_item_prefix { 'test_dbchanges' }
sub _table_name { shift->db_item_prefix . '_table' }

requires qw(_db_fetch maybe_prepare_db decode_recorded_data _make_changeset);

sub changeset_for_code {
    my ($self,$coderef) = @_;

    $self->maybe_prepare_db;
    my $table_name = $self->_table_name;

    my $last_id = $self->_db_fetch("SELECT MAX(id) AS id FROM ${table_name}")
        ->[0]{id} // 0;

    $coderef->();

    my $rows = $self->_db_fetch(<<"SQL",$last_id);
SELECT *
FROM ${table_name}
WHERE id > ?
ORDER BY id ASC
SQL

    $_->{data} = $self->decode_recorded_data($_->{data})
        for $rows->@*;

    return $self->_make_changeset($rows);
}

1;

__END__