Select Code to Download

Sample History (organite)
...
test1 is currently at: stage two

sample is currently at: stage four

#!/usr/bin/perl -w

...
printf("\ntest1 is currently at: %s\n",$test1->current_status());
printf("\ntest2 is currently at: %s\n",$test2->current_status());
printf("\nsample is currently at: %s\n\n",$sample->current_status());

package sam;
...
    return $top->{'ref'}->status;
}
1;

package tes;
...
}

1;

package status;
...
}    

1;