VRac/M6502/Arch.pm

package Arch;

# Dobrica Pavlinusic, <dpavlin@rot13.org> 07/30/07 21:40:53 CEST

use strict;
use warnings;

use Data::Dump qw/dump/;

=head1 NAME

Arch - tie arhitecutre components together

=cut

=head1 IMPLEMENTATION

=head2 init

=head2 read

=head2 write

=head2 cli

=cut

use base qw(Class::Accessor Orao M6502 Screen);
warn "loaded ",__PACKAGE__,$/;

my $prefs = {
        arch => 'Orao',
        scale => 1,
        show_mem => 1,
        trace => 1,
        debug => 1,
};

my $arch_name = $prefs->{arch};
our $arch = $arch_name->new( $prefs );
warn "Arch $arch_name created with prefs = ",dump( $prefs ),"\n";
$arch->prefs;

sub init {
        warn "Arch $arch_name init\n";
        $arch->prefs;
        $arch->init;
        $arch->prefs;
}

sub read { $arch->read( @_ ) };
sub write { $arch->write( @_ ) };
sub cli { $arch->cli( @_ ) };

1;
1	dpavlin	55	package Arch;
2
3			# Dobrica Pavlinusic, <dpavlin@rot13.org> 07/30/07 21:40:53 CEST
4
5			use strict;
6			use warnings;
7
8			use Data::Dump qw/dump/;
9
10			=head1 NAME
11
12			Arch - tie arhitecutre components together
13
14			=cut
15
16			=head1 IMPLEMENTATION
17
18			=head2 init
19
20			=head2 read
21
22			=head2 write
23
24			=head2 cli
25
26			=cut
27
28			use base qw(Class::Accessor Orao M6502 Screen);
29			warn "loaded ",__PACKAGE__,$/;
30
31			my $prefs = {
32			arch => 'Orao',
33			scale => 1,
34			show_mem => 1,
35			trace => 1,
36			debug => 1,
37			};
38
39			my $arch_name = $prefs->{arch};
40			our $arch = $arch_name->new( $prefs );
41			warn "Arch $arch_name created with prefs = ",dump( $prefs ),"\n";
42			$arch->prefs;
43
44			sub init {
45			warn "Arch $arch_name init\n";
46			$arch->prefs;
47			$arch->init;
48			$arch->prefs;
49			}
50
51			sub read { $arch->read( @_ ) };
52			sub write { $arch->write( @_ ) };
53			sub cli { $arch->cli( @_ ) };
54
55			1;