Data/Rap/Context.pm

## ----------------------------------------------------------------------
##  $Id: Property.pm,v 1.1 2003/02/18 15:36:20 joko Exp $
## ----------------------------------------------------------------------
##  $Log: Property.pm,v $
## ----------------------------------------------------------------------


package Data::Rap::Context;

use strict;
use warnings;


use Data::Dumper;


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

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

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

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

1;
__END__
1	## ----------------------------------------------------------------------
2	## $Id: Property.pm,v 1.1 2003/02/18 15:36:20 joko Exp $
3	## ----------------------------------------------------------------------
4	## $Log: Property.pm,v $
5	## ----------------------------------------------------------------------
6
7
8	package Data::Rap::Context;
9
10	use strict;
11	use warnings;
12
13
14	use Data::Dumper;
15
16
17	sub setInstance {
18	my $self = shift;
19	my $instance = shift;
20	$self->{__rap}->{context}->{instance} = $instance;
21	}
22
23	sub getInstance {
24	my $self = shift;
25	return $self->{__rap}->{context}->{instance};
26	}
27
28	sub setContainer {
29	my $self = shift;
30	my $args = shift;
31
32	# strip all parameters prefixed by an underscore ('_')
33	foreach (keys %$args) {
34	delete $args->{$_} if m/^_/;
35	}
36
37	$self->{__rap}->{context}->{container} = $args;
38	}
39
40	sub getContainer {
41	my $self = shift;
42	return $self->{__rap}->{context}->{container};
43	}
44
45	1;
46	__END__
MailToCvsAdmin">MailToCvsAdmin	ViewVC Help
Powered by ViewVC 1.1.26