[Bast-commits] r8437 - DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class
frew at dev.catalyst.perl.org
frew at dev.catalyst.perl.org
Wed Jan 27 06:29:53 GMT 2010
Author: frew
Date: 2010-01-27 06:29:53 +0000 (Wed, 27 Jan 2010)
New Revision: 8437
Modified:
DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm
Log:
get rid of ridiculous syntax error in SYNOPSIS, change some verbage
Modified: DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm
===================================================================
--- DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm 2010-01-27 06:28:00 UTC (rev 8436)
+++ DBIx-Class-Journal/1.000/trunk/lib/DBIx/Class/Journal.pm 2010-01-27 06:29:53 UTC (rev 8437)
@@ -6,6 +6,7 @@
use warnings;
our $VERSION = '0.900001_02';
+$VERSION = eval $VERSION; # no errors in dev versions
## On create/insert, add new entry to AuditLog
@@ -87,21 +88,21 @@
=head1 SYNOPSIS
- package My::Schema;
- use base 'DBIx::Class::Schema';
+ package My::Schema;
+ use base 'DBIx::Class::Schema';
- __PACKAGE__->load_components(qw/+DBIx::Class::Schema::Journal/);
+ __PACKAGE__->load_components(qw/Schema::Journal/);
- __PACKAGE__->journal_connection(['dbi:SQLite:t/var/Audit.db']);
- __PACKAGE__->journal_user(['My::Schema::User', {'foreign.userid' => 'self.user_id'}]);
+ __PACKAGE__->journal_connection(['dbi:SQLite:t/var/Audit.db']);
+ __PACKAGE__->journal_user(['My::Schema::User', {'foreign.userid' => 'self.user_id'}]);
- ########
+ #######
- $schema->changeset_user($user->id);
- my $new_artist = $schema->txn_do( sub {
- return = $schema->resultset('Artist')->create({ name => 'Fred' });
- });
+ $schema->changeset_user($user->id);
+ my $new_artist = $schema->txn_do( sub {
+ return $schema->resultset('Artist')->create({ name => 'Fred' });
+ });
=head1 DESCRIPTION
@@ -113,7 +114,7 @@
of each row is stored, as well as the previous contents of any row
that gets changed.
-All queries which want auditing should be called using
+All queries which need auditing must be called using
L<DBIx::Class::Schema/txn_do>, which is used to create changesets for
each transaction.
More information about the Bast-commits
mailing list