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	joko	1.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