/usr/lib/perl5/Wx/Timer.pm is in libwx-perl 1:0.9922-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 | #############################################################################
## Name: lib/Wx/Timer.pm
## Purpose: Wx::Timer and Wx::TimerRunner
## Author: Mattia Barbon
## Modified by:
## Created: 14/02/2001
## RCS-ID: $Id: Timer.pm 2057 2007-06-18 23:03:00Z mbarbon $
## Copyright: (c) 2001-2002 Mattia Barbon
## Licence: This program is free software; you can redistribute it and/or
## modify it under the same terms as Perl itself
#############################################################################
package Wx::Timer;
use strict;
sub new {
my $class = shift;
@_ == 0 && return Wx::Timer::newDefault( $class, );
Wx::_match( @_, $Wx::_wehd_n, 1, 1 ) && return Wx::Timer::newEH( $class, @_ );
Wx::_croak Wx::_ovl_error;
}
package Wx::TimerRunner;
use strict;
sub new {
my $class = shift;
my $this = { TIMER => shift };
if( @_ > 0 ) { $this->{TIMER}->Start( @_ ) }
bless $this, $class;
$this;
}
sub DESTROY {
my $this = shift;
$this->{TIMER}->Stop if $this->{TIMER}->IsRunning;
}
sub Start {
my( $this, $milliseconds, $oneshot ) = @_;
$this->{TIMER}->Start( $milliseconds, $oneshot );
}
1;
# Local variables: #
# mode: cperl #
# End: #
|