package SomeObserver;
use strict;
use vars qw($VERSION);
$VERSION = '0.01';
my @observations = ();
sub get_observations {
return @observations;
}
sub clear_observations {
@observations = ();
}
sub update {
my ( $class, $workflow, $action, @extra ) = @_;
push @observations, [ 'class', $workflow, $action, @extra ];
}
sub other_sub {
my ( $workflow, $action, @extra ) = @_;
push @observations, [ 'sub', $workflow, $action, @extra ];
}
1;