Pinwheel

 view release on metacpan or  search on metacpan

lib/Pinwheel/Database.pm  view on Meta::CPAN

{
    return $backend->finish_all(@_) if ($backend);
}

sub do
{
    croak "No database configured" unless ($backend);
    return $backend->do(@_);
}

sub without_foreign_keys(&)
{
    croak "No database configured" unless ($backend);
    return $backend->without_foreign_keys(@_);
}

sub prepare
{
    croak "No database configured" unless ($backend);
    return $backend->prepare(@_);
}

lib/Pinwheel/Database/Mysql.pm  view on Meta::CPAN

    } @$rows;
    return \%fields;
}

sub tables
{
    my $self = shift;
    return $self->selectcol_array('SHOW TABLES');
}

sub without_foreign_keys(&)
{
    my ($self, $block) = @_;
    $self->prepare('BEGIN')->execute();
    $self->prepare('SET FOREIGN_KEY_CHECKS = 0')->execute();
    &$block();
    $self->prepare('SET FOREIGN_KEY_CHECKS = 1')->execute();
    $self->prepare('COMMIT')->execute();
}

lib/Pinwheel/TestHelper.pm  view on Meta::CPAN

    get_template_name
    get
    find_nodes
    content
    url_for
    localise_test_state
);

our ($template, $headers, $content, $tagselect, $time_now);

sub localise_test_state(&)
{
    local $template = $template;
    local $headers = $headers;
    local $content = $content;
    local $tagselect = $tagselect;
    local $time_now = $time_now;
    my $sub = shift; &$sub;
}

=item ($headers, $content) = get($path)

t/func/view_erb.t  view on Meta::CPAN

    my $t = Pinwheel::View::ERB::compile($writer->{eof}());
    return sub { $t->(@_)->to_string() };
}

sub template
{
    my $code = Pinwheel::View::ERB::parse_template(@_);
    return sub { my $s = &$code(@_); "$s" };
}

sub no_warnings(&)
{
    local $SIG{__WARN__} = sub {};
    $_[0]->();
}


{
    package MockModel;
    our $AUTOLOAD;
    sub new { bless({}, shift) }