view Lib/Deployment/Batch/CustomAction.pm @ 21:fafe56cfcd69

temp commit
author Sergey
date Wed, 30 Sep 2009 10:25:41 +0400
parents 03e58a454b20
children 16ada169ca75
line wrap: on
line source

use strict;
package Deployment::Batch::CustomAction;
use base qw(Deployment::Batch::Generic);
use Common;

BEGIN {
    DeclareProperty handlerRun => ACCESS_READ;
    DeclareProperty handlerRollback => ACCESS_READ;
    DeclareProperty Name => ACCESS_READ;
}

sub CTOR {
    my ($this,%args) = @_;

    $this->{$handlerRun} = $args{Run} || sub {};
    $this->{$handlerRollback} = $args{Rollback} || sub {};
    $this->{$Name} = $args{Name} || $this->SUPER::Name();
}

sub Run {
    my ($this) = @_;

    $this->{$handlerRun}->($this);
}

sub Rollback {
    my ($this) = @_;

    $this->{$handlerRollback}->($this);
}

1;