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	joko	1.1	## ----------------------------------------------------------------------
2	joko	1.2	## $Id: Context.pm,v 1.1 2003/02/20 19:41:10 joko Exp $
3	joko	1.1	## ----------------------------------------------------------------------
4	joko	1.2	## $Log: Context.pm,v $
5			## Revision 1.1 2003/02/20 19:41:10 joko
6			## + initial commit
7			##
8	joko	1.1	## ----------------------------------------------------------------------
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	joko	1.2	# store reference to instance
24	joko	1.1	$self->{__rap}->{context}->{instance} = $instance;
25			}
26
27			sub getInstance {
28			my $self = shift;
29			return $self->{__rap}->{context}->{instance};
30			}
31
32	joko	1.2	sub __ctx_strip_args {
33	joko	1.1	my $self = shift;
34			my $args = shift;
35	joko	1.2	my $options = shift;
36			$options->{prefix} \|\|= '_';
37	joko	1.1
38			# strip all parameters prefixed by an underscore ('_')
39	joko	1.2	my $prefix = $options->{prefix};
40	joko	1.1	foreach (keys %$args) {
41	joko	1.2	delete $args->{$_} if m/^$prefix/;
42	joko	1.1	}
43	joko	1.2	}
44
45			sub setContainer_old {
46			my $self = shift;
47			my $args = shift;
48			$self->__ctx_strip_args($args);
49	joko	1.1	$self->{__rap}->{context}->{container} = $args;
50			}
51
52			sub getContainer {
53			my $self = shift;
54	joko	1.2	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	joko	1.1	}
83
84			1;
85			__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26