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; |