Mercurial > pub > Impl
view Lib/Deployment/Batch/Generic.pm @ 36:1828103371d0
DOM in works
author | Sergey |
---|---|
date | Fri, 20 Nov 2009 16:48:08 +0300 |
parents | 03e58a454b20 |
children | 16ada169ca75 |
line wrap: on
line source
use strict; package Deployment::Batch; our @history; package Deployment::Batch::Generic; use Common; use Time::HiRes; our @ISA = qw(Object); BEGIN { DeclareProperty isProcessed => ACCESS_READ; DeclareProperty LastError => ACCESS_READ; DeclareProperty LocalHistory => ACCESS_NONE; } sub _Run { my ($this) = @_; undef $@; local @history = (); my $t0 = [Time::HiRes::gettimeofday]; eval { $this->Run; }; $this->Log("completed in ",Time::HiRes::tv_interval($t0)," s"); if ($@) { $this->{$LastError} = $@; Deployment::Batch::Rollback; # rallback nested actions return 0; } $this->{$LocalHistory} = \@history; $this->{$isProcessed} = 1; return 1; } sub Name { my $this = shift; (my $mod = ref $this) =~ s/^(?:\w+\:\:)*(\w+)$/$1/; return $mod; } sub _Rollback { my ($this) = @_; undef $@; eval { $this->Rollback; }; if ($@) { $this->{$LastError} = $@; } $this->{$isProcessed} = 0; if ($this->{$LocalHistory}) { local @history = @{$this->{$LocalHistory}}; Deployment::Batch::Rollback; } return 1; } sub Context { my $this = shift; return \%Deployment::Batch::Context; } sub Log { my $this = shift @_; if ($this->Context->{LogOutput}) { my $out = $this->Context->{LogOutput}; print $out $this->Name,": ",@_,"\n"; } } sub Run { } sub Rollback { } 1;