--- a/Lib/Deployment/Batch/CustomAction.pm	Fri Feb 26 01:43:42 2010 +0300
+++ b/Lib/Deployment/Batch/CustomAction.pm	Fri Feb 26 10:49:21 2010 +0300
@@ -1,32 +1,32 @@
-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;
\ No newline at end of file
+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;