12 |
use base qw(Class::Accessor); |
use base qw(Class::Accessor); |
13 |
__PACKAGE__->mk_accessors(qw(debug scale show_mem run_for mem_dump trace)); |
__PACKAGE__->mk_accessors(qw(debug scale show_mem run_for mem_dump trace)); |
14 |
|
|
15 |
=head2 init |
=head2 open_screen |
16 |
|
|
17 |
Open simulated screen |
Open simulated screen |
18 |
|
|
20 |
|
|
21 |
our $app; |
our $app; |
22 |
|
|
23 |
sub init { |
sub open_screen { |
24 |
my $self = shift; |
my $self = shift; |
25 |
$app = SDL::App->new( |
$app = SDL::App->new( |
26 |
-width => 256 * $self->scale + ( $self->show_mem ? 256 : 0 ), |
-width => 256 * $self->scale + ( $self->show_mem ? 256 : 0 ), |