viewvc.cgi/VRac/Session.pm

package Session;

# Dobrica Pavlinusic, <dpavlin@rot13.org> 08/05/07 14:27:15 CEST

use strict;
use warnings;

use Carp qw/confess/;
use Data::Dump qw/dump/;
use File::Slurp;

use base qw/Class::Accessor/;
#__PACKAGE__->mk_accessors(qw());


=head1 NAME

Session - save or load emulator interactive session

=cut

=head1 FUNCTIONS

=head2 record_session

  $self->record_session( 'name', $values );

=cut

my $last_tick = 0;

sub record_session {
        my $self = shift;
        my $name = shift || confess "no name?";

        my $t = $self->app->ticks;
        my $dt = $t - $last_tick;
        $last_tick = $t;

        $self->append_to_file('session.pl', "\$s->{$t}->{$name} = ", dump( @_ ),";\n");

}

=head2 load_session

  $self->load_session( '/path/to/session.pl' );

=cut

sub load_session {
        my $self = shift;
        my $path = shift || confess "no path?";

        my $s;
        eval read_file( $path );
        warn "s = ",dump( $s );

        my @timeline = sort { $a <=> $b } keys %$s;

        my ( $from, $to ) = @timeline[0,-1];
        printf "loaded session %.2f-%.2fs with %d events\n", $from / 1000, $to / 1000, $#timeline + 1;
}

=head1 SEE ALSO

L<VRac>

=cut

1;
1	dpavlin	145	package Session;
2
3			# Dobrica Pavlinusic, <dpavlin@rot13.org> 08/05/07 14:27:15 CEST
4
5			use strict;
6			use warnings;
7
8			use Carp qw/confess/;
9			use Data::Dump qw/dump/;
10			use File::Slurp;
11
12			use base qw/Class::Accessor/;
13			#__PACKAGE__->mk_accessors(qw());
14
15
16			=head1 NAME
17
18			Session - save or load emulator interactive session
19
20			=cut
21
22			=head1 FUNCTIONS
23
24			=head2 record_session
25
26			$self->record_session( 'name', $values );
27
28			=cut
29
30			my $last_tick = 0;
31
32			sub record_session {
33			my $self = shift;
34			my $name = shift \|\| confess "no name?";
35
36			my $t = $self->app->ticks;
37			my $dt = $t - $last_tick;
38			$last_tick = $t;
39
40			$self->append_to_file('session.pl', "\$s->{$t}->{$name} = ", dump( @_ ),";\n");
41
42			}
43
44			=head2 load_session
45
46			$self->load_session( '/path/to/session.pl' );
47
48			=cut
49
50			sub load_session {
51			my $self = shift;
52			my $path = shift \|\| confess "no path?";
53
54			my $s;
55			eval read_file( $path );
56			warn "s = ",dump( $s );
57
58			my @timeline = sort { $a <=> $b } keys %$s;
59
60			my ( $from, $to ) = @timeline[0,-1];
61			printf "loaded session %.2f-%.2fs with %d events\n", $from / 1000, $to / 1000, $#timeline + 1;
62			}
63
64			=head1 SEE ALSO
65
66			L<VRac>
67
68			=cut
69
70			1;