lib/status_bar_subs.pm

   1 start tick
   2     {
   3
   4       $self -> {'sofar'} ++;
   5
   6       if( $self -> {'sofar'} >= $self -> {'steps'} ){
   7         return 1;
   8       }
   9
  10       if( $self -> {'steps'} / $self -> {'width'} < 1 ){
  11         $return = 1;
  12       } elsif( $self -> {'sofar'} % int($self -> {'steps'} / $self -> {'width'}) ){
  13         $return = 0;
  14       } else {
  15         $return = 1;
  16       }
  17
  18     }
  19 end tick
  20
  21 start print_step
  22     {
  23       if( $self -> {'sofar'} == 0 ){
  24         $output = '|';
  25       } else {
  26         if( $self -> {'steps'} / $self -> {'width'} < 1 ){
  27           $output = '.' x int($self -> {'width'} / $self -> {'steps'});
  28         } else {
  29           $output = '.';
  30         }
  31       }
  32
  33       if( $self -> {'sofar'} >= $self -> {'steps'} ){
  34         $output .= '|';
  35       }
  36
  37     }
  38 end print_step