File Coverage

blib/lib/Data/Section/Fixture.pm

Criterion	Covered	Total	%
statement	18	30	60.0
branch	0	2	0.0
condition	0	4	0.0
subroutine	6	9	66.6
pod	1	1	100.0
total	25	46	54.3

package Data::Section::Fixture;
use 5.008005;
use strict;
use warnings;
use Data::Section::Simple;
use Scope::Guard;
use base qw(Exporter);

our $VERSION = "0.01";

our @EXPORT_OK = qw(with_fixture);

sub with_fixture ($&) {
    my ($dbh, $code) = @_;

    my ($pkg) = caller;
    my $reader = Data::Section::Simple->new($pkg);
    my $setup_sqls = $reader->get_data_section('setup') || '';
    my $teardown_sqls = $reader->get_data_section('teardown') || '';

    my $guard = Scope::Guard->new(sub {
        _exec_sqls($dbh, $teardown_sqls);
    });
    _exec_sqls($dbh, $setup_sqls);

    $code->();
}

sub _exec_sqls {
    my ($dbh, $sqls) = @_;
    for (split ';', $sqls) {
        $dbh->do($_) unless $_ =~ /^\s+$/;
    }
}

1;
__END__