#!/usr/bin/perl
#------------------------------------------------------------
# Copyright (C) 2010 RoyaltyShare, Inc.   All Rights Reserved
#------------------------------------------------------------
use strict;

TestProcess->start();

package TestProcess;

use lib '/app/tools/common/lib';

use base 'Common::Script';

sub _options {
    {
        sleep => {
            short       => 's',
            default     => 10,
            description => 'Time to sleep',
            parameter   => 'i',
        },
    };
}

sub run {
    my $self  = shift;
    my $sleep = $self->param('sleep');

    $self->debug("Running Child.  Sleeping for $sleep seconds");
    sleep($sleep);
}

1;