view Lib/Deployment/Batch/CustomAction.pm @ 55:609b59c9f03c

Web application rewrote prop_list implementation to support IMPL::Object::List
author wizard
date Wed, 03 Mar 2010 17:40:18 +0300
parents 16ada169ca75
children 76515373dac0
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;