File Coverage

blib/lib/Class/DBI/Replicated/Test.pm

Criterion	Covered	Total	%
statement	9	23	39.1
branch	0	4	0.0
condition			n/a
subroutine	3	7	42.8
pod			n/a
total	12	34	35.2

package Class::DBI::Replicated::Test;

use strict;
use warnings;
use Class::Trigger;

=head1 NAME

Class::DBI::Replicated::Test

=cut

sub _mk_output {
  my $text = shift;
  return sub {
    my $class = shift;
    my $tmp = $text;
    $tmp .= " @_" if @_;
    return unless $class->repl_output;
    push @{$class->repl_output}, $tmp;
  };
}

sub _mk_trigger {
  my ($class, $name) = @_;
  $class->add_trigger(
    $name => _mk_output($name),
  );
}

sub _test_init {
  my ($class) = @_;
  $class->mk_class_accessors('repl_output');

  for (qw(
          switch_to_master
          switch_to_slave
          repl_db
          repl_check
          repl_mark
        )) {
    $class->_mk_trigger($_);
  }
}

1;