Current Path : /proc/self/root/proc/2/root/usr/local/rvglobalsoft/rvglobalsoft/lib/RVL/

Upload File :

Current File : //proc/self/root/proc/2/root/usr/local/rvglobalsoft/rvglobalsoft/lib/RVL/TaskRunner.pm

#!/usr/bin/perl
##LICENSE##
package RVL::Task;
use strict;
use warnings;
use Class::Std::Utils;
{
    sub new {
        my ($class, $opt) = @_;
        my ($this) = bless anon_scalar(), $class;
        return $this;
    }
    
    sub run {
        my ($this) = @_;
    }
}
=HEAD
    RVL::TaskRunner
=cut

package RVL::TaskRunner;
use strict;
use warnings;
use Class::Std::Utils;
{
    sub new {
        my ($class, $opt) = @_;
        my (%hash);
        my ($this) = bless( \%hash, $class);
        $this->{aTasks} = ();
        return $this;
    }
    
    sub addData {
        my ($this, $data) = @_;
        $this->{data} = $data;
    }
    
    sub addTask {
        my ($this, $oTask) = @_;
        push(@{$this->{aTasks}}, $oTask);
    }
    
    sub main {
        my ($this) = @_;
        foreach my $oTask (@{$this->{aTasks}}) {
            $oTask->run($this->{data});
        }    
    }
}

1;

Copyright 2K16 - 2K18 Indonesian Hacker Rulez