# $Id$ package Handel::Checkout::Plugin::TestBogusPlugin; use strict; use warnings; use Handel::Constants qw(:checkout); sub new { }; sub register { my ($self, $ctx) = @_; $self->{'register_called'}++; $ctx->add_handler(CHECKOUT_PHASE_INITIALIZE, \&handler); }; sub init { my ($self, $ctx) = @_; $self->{'init_called'}++; }; sub setup { my ($self, $ctx) = @_; $self->{'setup_called'}++; }; sub teardown { my ($self, $ctx) = @_; $self->{'teardown_called'}++; }; sub handler { my ($self, $ctx) = @_; $self->{'handler_called'}++; }; 1;