File Coverage

blib/lib/Data/Passphrase/Rule.pm

Criterion	Covered	Total	%
statement	9	9	100.0
branch			n/a
condition			n/a
subroutine	3	3	100.0
pod			n/a
total	12	12	100.0

# $Id: Rule.pm,v 1.6 2007/08/14 15:45:51 ajk Exp $

use strict;
use warnings;

package Data::Passphrase::Rule; {
    use Object::InsideOut;

    # object attributes
    my @code     :Field( Std => 'code',     Type => 'numeric' );
    my @debug    :Field( Std => 'debug',    Type => 'numeric' );
    my @disabled :Field( Std => 'disabled', Type => 'numeric' );
    my @message  :Field( Std => 'message',                    );
    my @score    :Field( Std => 'score',                      );
    my @test     :Field( Std => 'test',     Type => 'CODE'    );
    my @validate :Field( Std => 'validate', Type => 'CODE'    );

    my %init_args :InitArgs = (
        code     => {           Field => \@code,     Type => 'numeric' },
        debug    => { Def => 0, Field => \@debug,    Type => 'numeric' },
        disabled => { Def => 0, Field => \@disabled, Type => 'numeric' },
        message  => {           Field => \@message,                    },
        score    => {           Field => \@score,                      },
        test     => {           Field => \@test,                       },
        validate => {           Field => \@validate, Type => 'CODE'    },
    );
}

1;
__END__