Data/Rap/Context.pm

## ----------------------------------------------------------------------
##  $Id: Context.pm,v 1.1 2003/02/20 19:41:10 joko Exp $
## ----------------------------------------------------------------------
##  $Log: Context.pm,v $
##  Revision 1.1  2003/02/20 19:41:10  joko
##  + initial commit
##
## ----------------------------------------------------------------------


package Data::Rap::Context;

use strict;
use warnings;


use Data::Dumper;


sub setInstance {
  my $self = shift;
  my $instance = shift;
  # store reference to instance
  $self->{__rap}->{context}->{instance} = $instance;
}

sub getInstance {
  my $self = shift;
  return $self->{__rap}->{context}->{instance};
}

sub __ctx_strip_args {
  my $self = shift;
  my $args = shift;
  my $options = shift;
  $options->{prefix} ||= '_';
  
  # strip all parameters prefixed by an underscore ('_')
  my $prefix = $options->{prefix};
  foreach (keys %$args) {
    delete $args->{$_} if m/^$prefix/;
  }
}

sub setContainer_old {
  my $self = shift;
  my $args = shift;
  $self->__ctx_strip_args($args);
  $self->{__rap}->{context}->{container} = $args;
}

sub getContainer {
  my $self = shift;
  my $last = $#{$self->{__rap}->{context}->{container}};
  return $self->{__rap}->{context}->{container}->[$last];
}

sub clearContainer {
  my $self = shift;
  $self->{__rap}->{context}->{container} = {};
}

sub __ctx_init_array {
  my $self = shift;
  if (ref $self->{__rap}->{context}->{container} ne 'ARRAY') {
    $self->{__rap}->{context}->{container} = [ $self->{__rap}->{context}->{container} ];
  }
}

sub pushContainer {
  my $self = shift;
  my $args = shift;
  $self->__ctx_init_array();
  $self->__ctx_strip_args($args);
  push @{$self->{__rap}->{context}->{container}}, $args;
}

sub popContainer {
  my $self = shift;
  $self->__ctx_init_array();
  pop @{$self->{__rap}->{context}->{container}};
}

1;
__END__
1	## ----------------------------------------------------------------------
2	## $Id: Context.pm,v 1.1 2003/02/20 19:41:10 joko Exp $
3	## ----------------------------------------------------------------------
4	## $Log: Context.pm,v $
5	## Revision 1.1 2003/02/20 19:41:10 joko
6	## + initial commit
7	##
8	## ----------------------------------------------------------------------
9
10
11	package Data::Rap::Context;
12
13	use strict;
14	use warnings;
15
16
17	use Data::Dumper;
18
19
20	sub setInstance {
21	my $self = shift;
22	my $instance = shift;
23	# store reference to instance
24	$self->{__rap}->{context}->{instance} = $instance;
25	}
26
27	sub getInstance {
28	my $self = shift;
29	return $self->{__rap}->{context}->{instance};
30	}
31
32	sub __ctx_strip_args {
33	my $self = shift;
34	my $args = shift;
35	my $options = shift;
36	$options->{prefix} \|\|= '_';
37
38	# strip all parameters prefixed by an underscore ('_')
39	my $prefix = $options->{prefix};
40	foreach (keys %$args) {
41	delete $args->{$_} if m/^$prefix/;
42	}
43	}
44
45	sub setContainer_old {
46	my $self = shift;
47	my $args = shift;
48	$self->__ctx_strip_args($args);
49	$self->{__rap}->{context}->{container} = $args;
50	}
51
52	sub getContainer {
53	my $self = shift;
54	my $last = $#{$self->{__rap}->{context}->{container}};
55	return $self->{__rap}->{context}->{container}->[$last];
56	}
57
58	sub clearContainer {
59	my $self = shift;
60	$self->{__rap}->{context}->{container} = {};
61	}
62
63	sub __ctx_init_array {
64	my $self = shift;
65	if (ref $self->{__rap}->{context}->{container} ne 'ARRAY') {
66	$self->{__rap}->{context}->{container} = [ $self->{__rap}->{context}->{container} ];
67	}
68	}
69
70	sub pushContainer {
71	my $self = shift;
72	my $args = shift;
73	$self->__ctx_init_array();
74	$self->__ctx_strip_args($args);
75	push @{$self->{__rap}->{context}->{container}}, $args;
76	}
77
78	sub popContainer {
79	my $self = shift;
80	$self->__ctx_init_array();
81	pop @{$self->{__rap}->{context}->{container}};
82	}
83
84	1;
85	__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26