%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /home/rs/perl/cpanel/lib/perl5/site_perl/5.8/mach/Razor2/Engine/
Upload File :
Create Path :
Current File : //home/rs/perl/cpanel/lib/perl5/site_perl/5.8/mach/Razor2/Engine/VR8.pm

package Razor2::Engine::VR8;
use Razor2::Signature::Whiplash;
use Razor2::String qw(hextobase64);
use Data::Dumper;

sub new {

    my ( $class, %args ) = @_;

    my $self = bless {
        description     => 'whiplash',
        has_greet_param => 0,
        whiplash        => new Razor2::Signature::Whiplash,
        rm              => $args{RM},
    }, $class;

    die unless $self;

    return $self;

}

sub signature {

    my ( $self, $text ) = @_;
    my ( $sigs, $meta ) = $self->{whiplash}->whiplash($$text);

    my @sigs_to_return;
    return unless $sigs;

    if ( scalar @$sigs ) {
        for (@$sigs) {
            push @sigs_to_return, hextobase64($_);
        }
    }
    else {
        return;
    }

    return \@sigs_to_return;

}

1;

Zerion Mini Shell 1.0