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 Prefs);
warn "loaded ",__PACKAGE__,$/;

my $prefs = { arch => 'Orao' };
if(0){
$prefs = {
        arch => 'Orao',
        scale => 1,
        show_mem => 1,
        trace => 1,
        debug => 1,
};
}#if(0)

my $arch_name = $prefs->{arch} || die "need 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	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 Prefs);
29	warn "loaded ",__PACKAGE__,$/;
30
31	my $prefs = { arch => 'Orao' };
32	if(0){
33	$prefs = {
34	arch => 'Orao',
35	scale => 1,
36	show_mem => 1,
37	trace => 1,
38	debug => 1,
39	};
40	}#if(0)
41
42	my $arch_name = $prefs->{arch} \|\| die "need arch";
43	our $arch = $arch_name->new( $prefs );
44	warn "Arch $arch_name created with prefs = ",dump( $prefs ),"\n";
45	$arch->prefs;
46
47	sub init {
48	warn "Arch $arch_name init\n";
49	$arch->prefs;
50	$arch->init;
51	$arch->prefs;
52	}
53
54	sub read { $arch->read( @_ ) };
55	sub write { $arch->write( @_ ) };
56	sub cli { $arch->cli( @_ ) };
57
58	1;