#!/usr/bin/perl

package DBIx::Class::Journal::EvalWrap;
use base qw(DBIx::Class::Journal);

use strict;
use warnings;

foreach my $method qw(journal_log_update journal_log_insert journal_log_delete) {
    local $@;
    eval "sub $method " . ' {
    my ( $self, @args ) = @_;
    local $@;
    eval { $self->next::method(@args) };
    warn $@ if $@;
    }; 1' || warn $@;
}

__PACKAGE__

__END__

=pod

=head1 NAME

DBIx::Class::Journal::EvalWrap - Wrap all journal ops with an eval { }

=head1 SYNOPSIS

    __PACKAGE__->journal_component("Journal::EvalWrap");

=head1 DESCRIPTION

This component is a wrapper for the row methods in L<DBIx:Class::Journal> that
aides in retrofitting a schema for journaling, by wrapping all the journal CRUD
operations with a C<local $@; eval { ... }}.

This is desirable if you'd rather lose journal data than create runtime errors
when retrofitting existing code.

Use with caution.

=cut