OEF/API/Abstract.pm

## -------------------------------------------------------------------------
##  $Id: Admin.pm,v 1.10 2003/02/23 23:50:06 cvsmax Exp $
## -------------------------------------------------------------------------
##  $Log: Admin.pm,v $
## -------------------------------------------------------------------------


package OEF::API::Abstract;

use strict;
use warnings;

use Data::Dumper;

sub new {
  my $self = shift;
  #$self->_api_init();
}

sub register {
  my $self = shift;
  my $payload = shift;
  #print ref($self), " [$self] registers its API", "\n";
  print ref($self), " registers its API", "\n";
  #$logger->info( ref($self), " [$self]", " registers its API" );
  #print Dumper($payload);
  $self->_push_api($payload);
}

sub _push_api {
  my $self = shift;
  my $payload = shift;
  push @{$self->{api}}, @$payload;
}

sub build {
  my $self = shift;
  my $plugins = shift;
  # base api
  $self->_api_init();
  # api extensions (plugins)
  #my @api_ext;
  foreach (@$plugins) {
    my $subapi = DesignPattern::Object->fromPackage($_);
    #next;
    if ($subapi->build()) {
      #push @api_ext, @$subapi_metadata;
      #$self->register($subapi->getApiMetadata());
      $self->_push_api($subapi->getApiMetadata());
    }
  }
  #my @api_merged = (@$api_base, @api_ext);
  #print Dumper(@api_merged);
  #return \@api_merged;
  return 1;
}

sub getApiMetadata {
  my $self = shift;
  #print Dumper($self);
  return $self->{api};
}

1;
__END__
1	joko	1.1	## -------------------------------------------------------------------------
2			## $Id: Admin.pm,v 1.10 2003/02/23 23:50:06 cvsmax Exp $
3			## -------------------------------------------------------------------------
4			## $Log: Admin.pm,v $
5			## -------------------------------------------------------------------------
6
7
8			package OEF::API::Abstract;
9
10			use strict;
11			use warnings;
12
13			use Data::Dumper;
14
15			sub new {
16			my $self = shift;
17			#$self->_api_init();
18			}
19
20			sub register {
21			my $self = shift;
22			my $payload = shift;
23			#print ref($self), " [$self] registers its API", "\n";
24			print ref($self), " registers its API", "\n";
25			#$logger->info( ref($self), " [$self]", " registers its API" );
26			#print Dumper($payload);
27			$self->_push_api($payload);
28			}
29
30			sub _push_api {
31			my $self = shift;
32			my $payload = shift;
33			push @{$self->{api}}, @$payload;
34			}
35
36			sub build {
37			my $self = shift;
38			my $plugins = shift;
39			# base api
40			$self->_api_init();
41			# api extensions (plugins)
42			#my @api_ext;
43			foreach (@$plugins) {
44			my $subapi = DesignPattern::Object->fromPackage($_);
45			#next;
46			if ($subapi->build()) {
47			#push @api_ext, @$subapi_metadata;
48			#$self->register($subapi->getApiMetadata());
49			$self->_push_api($subapi->getApiMetadata());
50			}
51			}
52			#my @api_merged = (@$api_base, @api_ext);
53			#print Dumper(@api_merged);
54			#return \@api_merged;
55			return 1;
56			}
57
58			sub getApiMetadata {
59			my $self = shift;
60			#print Dumper($self);
61			return $self->{api};
62			}
63
64			1;
65			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26