[Bps-public-commit] r13869 - in Lorzy/trunk: .
sartak at bestpractical.com
sartak at bestpractical.com
Tue Jul 8 12:47:33 EDT 2008
Author: sartak
Date: Tue Jul 8 12:47:33 2008
New Revision: 13869
Modified:
Lorzy/trunk/ (props changed)
Lorzy/trunk/lib/Lorzy/Expression/IfThen.pm
Lorzy/trunk/lib/Lorzy/Expression/ProgN.pm
Lorzy/trunk/lib/Lorzy/Expression/Symbol.pm
Lorzy/trunk/lib/Lorzy/Expression/True.pm
Log:
r63845 at onn: sartak | 2008-07-08 12:47:29 -0400
OCD fixes ;)
Modified: Lorzy/trunk/lib/Lorzy/Expression/IfThen.pm
==============================================================================
--- Lorzy/trunk/lib/Lorzy/Expression/IfThen.pm (original)
+++ Lorzy/trunk/lib/Lorzy/Expression/IfThen.pm Tue Jul 8 12:47:33 2008
@@ -1,4 +1,3 @@
-#!/usr/bin/env perl
package Lorzy::Expression::IfThen;
use Moose;
use MooseX::ClassAttribute;
Modified: Lorzy/trunk/lib/Lorzy/Expression/ProgN.pm
==============================================================================
--- Lorzy/trunk/lib/Lorzy/Expression/ProgN.pm (original)
+++ Lorzy/trunk/lib/Lorzy/Expression/ProgN.pm Tue Jul 8 12:47:33 2008
@@ -4,7 +4,7 @@
extends 'Lorzy::Expression';
class_has signature => (
- is => 'ro',
+ is => 'ro',
default => sub { {} },
);
Modified: Lorzy/trunk/lib/Lorzy/Expression/Symbol.pm
==============================================================================
--- Lorzy/trunk/lib/Lorzy/Expression/Symbol.pm (original)
+++ Lorzy/trunk/lib/Lorzy/Expression/Symbol.pm Tue Jul 8 12:47:33 2008
@@ -19,8 +19,8 @@
sub evaluate {
my ($self, $eval) = validate_pos(@_,
- { isa => 'Lorzy::Expression'},
- { isa => 'Lorzy::Evaluator'},
+ { isa => 'Lorzy::Expression' },
+ { isa => 'Lorzy::Evaluator' },
);
my $symbol = $self->{'args'}->{'symbol'}->evaluate($eval);
Modified: Lorzy/trunk/lib/Lorzy/Expression/True.pm
==============================================================================
--- Lorzy/trunk/lib/Lorzy/Expression/True.pm (original)
+++ Lorzy/trunk/lib/Lorzy/Expression/True.pm Tue Jul 8 12:47:33 2008
@@ -6,7 +6,7 @@
class_has signature => (
is => 'ro',
- default => sub { { } } ,
+ default => sub { {} } ,
);
sub evaluate { 1 }
More information about the Bps-public-commit
mailing list