view release on metacpan or  search on metacpan

Animator.pm  view on Meta::CPAN

$self->set( '_direction'   ,'FWD'); 
# init status bar
$self->set('_meta_data_start', 1); 	
$self->set('_meta_data_start_display', 1);
$self->set('_meta_data_end', scalar(@{$self->{_meta_ref}}) );  
$self->set('_meta_data_end_display', sprintf( "%8d", scalar(@{$self->{_meta_ref}}) ) );
$self->set( '_index', $self->{_mw}->{_mod_start_seq}->get()); 
$self->set_started_state(); 
}

sub update_delay {
my $self = shift;
my $delay = shift;

return if ( ! defined($self->{_timer_id}));

$self->set( '_delay', $delay);
$self->set( '_delay_msg', $self->{_delay} . ' ms');

$self->{_timer_id}->cancel;
$self->{_timer_id} = $self->{_table}->repeat($self->{_delay}, sub { $self->update_table }, $self->{_table});            

Animator.pm  view on Meta::CPAN

if (($^O ne 'MSWin32') and ( $file =~ m{(([\\/]\w+)+(.pm|.pl)*|\w+.pl)}g )) {
    return(undef) unless defined($1);
      if ( -e $1) {
                   return($1);
                  }
}

return(undef)
}
       
sub update_table {
my $self = shift;
my $table = shift;  

    $self->{_mw}->update; 
    return if ($self->{_status} eq 'STOPPED');  
    return if ($self->{_status} eq 'INIT');  	
    return if (! $self->done_loading_meta_data()); 

    return unless $self->retreiving_data();