JavaScript::Code::Expression::Boolean - A JavaScript Boolean Expression

JavaScript-Code documentation Contained in the JavaScript-Code distribution.

Index

Code Index:

NAME

Top

JavaScript::Code::Expression::Boolean - A JavaScript Boolean Expression

METHODS

Top

$self->and( ... )

logical conjunction

$self->or( ... )

logical disjunction

$self->not( ... )

logical negation

$self->less( ... )

$self->less_equal( ... )

$self->greater( ... )

$self->greater_equal( ... )

$self->equal( ... )

$self->not_equal( ... )

AND

OR

NOT

LESS

LESS_EQUAL

GREATER

GREATER_EQUAL

EQUAL

NOT_EQUAL

sub AND { &and } sub OR { &or } sub NOT { &not } sub LESS { &less } sub LESS_EQUAL { &less_equal } sub GREATER { &greater } sub GREATER_EQUAL { &greater_equal } sub EQUAL { &equal } sub NOT_EQUAL { &not_equal }

SEE ALSO

Top

JavaScript::Code

AUTHOR

Top

Sascha Kiefer, esskar@cpan.org

LICENSE

Top

This library is free software, you can redistribute it and/or modify it under the same terms as Perl itself.

JavaScript-Code documentation Contained in the JavaScript-Code distribution. 
package JavaScript::Code::Expression::Boolean;

use strict;
use vars qw[ $VERSION @EXPORT_OK ];
use base qw[
  JavaScript::Code::Expression
  JavaScript::Code::Expression::Node::Boolean
  Exporter
];

@EXPORT_OK = qw[
  AND OR NOT
  LESS LESS_EQUAL GREATER GREATER_EQUAL EQUAL NOT_EQUAL
];

$VERSION = '0.08';


sub and {
    my $e = __PACKAGE__->new;
    $e->command( 'And', @_ );
    return $e;
}


sub or {
    my $e = __PACKAGE__->new;
    $e->command( 'Or', @_ );
    return $e;
}


sub not {
    my $e = __PACKAGE__->new;
    $e->command( 'Not', @_ );
    return $e;
}


sub less {
    my $e = __PACKAGE__->new;
    $e->command( 'Less', @_ );
    return $e;
}


sub less_equal {
    my $e = __PACKAGE__->new;
    $e->command( 'LessEqual', @_ );
    return $e;
}


sub greater {
    my $e = __PACKAGE__->new;
    $e->command( 'Greater', @_ );
    return $e;
}


sub greater_equal {
    my $e = __PACKAGE__->new;
    $e->command( 'GreaterEqual', @_ );
    return $e;
}


sub equal {
    my $e = __PACKAGE__->new;
    $e->command( 'Equal', @_ );
    return $e;
}


sub not_equal {
    my $e = __PACKAGE__->new;
    $e->command( 'NotEqual', @_ );
    return $e;
}


1;