cvs commit: p5ee/App-Context/lib/App SessionObject.pm

cvsuser     05/08/09 12:05:03

  Modified:    App-Context/lib/App SessionObject.pm
  Log:
  change containment separator from . to -
  
  Revision  Changes    Path
  1.7       +66 -3     p5ee/App-Context/lib/App/SessionObject.pm
  
  Index: SessionObject.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Context/lib/App/SessionObject.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- SessionObject.pm	14 Mar 2005 17:37:04 -0000	1.6
  +++ SessionObject.pm	9 Aug 2005 19:05:02 -0000	1.7
  @@ -167,7 +167,7 @@
       $name               = $self->{name};
       $absorbable_attribs = $self->absorbable_attribs();
       $container          = "default";
  -    if ($name =~ /^(.+)\.[a-zA-Z][a-zA-Z0-9_]*$/) {
  +    if ($name =~ /^(.+)-[a-zA-Z][a-zA-Z0-9_]*$/) {
           $container = $1;
       }
   
  @@ -218,6 +218,69 @@
   =cut
   
   #############################################################################
  +# Method: container()
  +#############################################################################
  +
  +=head2 container()
  +
  +    * Signature: $self->container();
  +    * Signature: $self->container($name);
  +    * Params:    $name      string
  +    * Throws:    App::Exception
  +    * Since:     0.01
  +
  +    $container = $session_object->container();
  +
  +=cut
  +
  +sub container {
  +    &App::sub_entry if ($App::trace);
  +    my ($self, $name) = @_;
  +    $name ||= $self->{name};
  +    my ($container);
  +    if ($name =~ /^(.+)-[a-zA-Z][a-zA-Z0-9_]*$/) {
  +        $container = $1;
  +    }
  +    else {
  +        $container = "default";
  +    }
  +    &App::sub_exit($container) if ($App::trace);
  +    return($container);
  +}
  +
  +#############################################################################
  +# Method: container_attrib()
  +#############################################################################
  +
  +=head2 container_attrib()
  +
  +    * Signature: $attrib = $self->container_attrib();
  +    * Signature: $attrib = $self->container_attrib($name);
  +    * Params:    $name      string
  +    * Returns:   $attrib    string
  +    * Throws:    App::Exception
  +    * Since:     0.01
  +
  +    $attrib = $session_object->container_attrib();
  +
  +=cut
  +
  +sub container_attrib {
  +    &App::sub_entry if ($App::trace);
  +    my ($self, $name) = @_;
  +    $name ||= $self->{name};
  +    my ($attrib);
  +    if ($name =~ /^.+-([a-zA-Z][a-zA-Z0-9_]*)$/) {
  +        $attrib = $1;
  +    }
  +    else {
  +        $attrib = $name;
  +    }
  +    &App::sub_exit($attrib) if ($App::trace);
  +    return($attrib);
  +}
  +
  +#############################################################################
   # Method: handle_event()
   #############################################################################
   
  @@ -249,7 +312,7 @@
           my $name = $self->{name};
           my $context = $self->{context};
           my $container = "default";
  -        if ($name =~ /^(.+)\.[a-zA-Z][a-zA-Z0-9_]*$/) {
  +        if ($name =~ /^(.+)-[a-zA-Z][a-zA-Z0-9_]*$/) {
               $container = $1;
           }
           else {