use strict;
use warnings;
-our $VERSION = '0.900001_01';
+our $VERSION = '0.900001_04';
+$VERSION = eval $VERSION; # no errors in dev versions
## On create/insert, add new entry to AuditLog
-# sub new
-# {
-# my ($class, $attrs, @rest) = @_;
-
-# $class->result_source->schema->_journal_schema->current_user(delete $attrs->{user_id});
-
-# $class->next::method($attrs, @rest);
-# }
-
sub _journal_schema {
my $self = shift;
$self->result_source->schema->_journal_schema;
}
-sub insert
-{
+sub insert {
my ($self, @args) = @_;
- return if($self->in_storage);
+ return if $self->in_storage;
my $res = $self->next::method(@args);
- $self->journal_log_insert();
+ $self->journal_log_insert;
return $res;
}
-sub journal_log_insert
-{
+sub journal_log_insert {
my ($self) = @_;
if ( $self->in_storage ) {
## On delete, update delete_id of AuditLog
-sub delete
-{
- my ($self, @rest) = @_;
- $self->next::method(@rest);
- $self->journal_log_delete(@rest);
+sub delete {
+ my $self = shift;
+ $self->next::method(@_);
+ $self->journal_log_delete(@_);
}
-sub journal_log_delete
-{
+sub journal_log_delete {
my ($self) = @_;
unless ($self->in_storage) {
## On update, copy previous row's contents to AuditHistory
-sub update
-{
- my ($self, $upd, @rest) = @_;
- $self->journal_log_update($upd, @rest);
- $self->next::method($upd, @rest);
+sub update {
+ my $self = shift;
+ $self->journal_log_update(@_);
+ $self->next::method(@_);
}
-sub journal_log_update
-{
- my ($self, $upd, @rest) = @_;
+sub journal_log_update {
+ my $self = shift;
- if($self->in_storage)
- {
+ if($self->in_storage) {
my $j = $self->_journal_schema;
my $change = $j->journal_create_change;
=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
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.
=head2 TABLES
-The journal schema contains a number of tables.
+The journal schema contains a number of tables.
=over
database. The storage object will be shared by the regular schema and the
journalling schema.
+=item journal_components @components
+
+If you want to add components to your journal
+(L<DBIx::Class::Schema::Versioned> for example) this would be the
+
+
=item journal_sources \@source_names
Set a list of source names you would like to audit, if unset, all