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

cvsuser     04/02/27 06:20:17

  Modified:    App-Context/lib/App ValueDomain.pm
  Log:
  rename trace_subs to trace
  
  Revision  Changes    Path
  1.3       +9 -9      p5ee/App-Context/lib/App/ValueDomain.pm
  
  Index: ValueDomain.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/App-Context/lib/App/ValueDomain.pm,v
  retrieving revision 1.2
  retrieving revision 1.3
  diff -u -w -r1.2 -r1.3
  --- ValueDomain.pm	19 May 2003 17:41:12 -0000	1.2
  +++ ValueDomain.pm	27 Feb 2004 14:20:17 -0000	1.3
  @@ -1,6 +1,6 @@
   
   #############################################################################
  -## $Id: ValueDomain.pm,v 1.2 2003/05/19 17:41:12 spadkins Exp $
  +## $Id: ValueDomain.pm,v 1.3 2004/02/27 14:20:17 spadkins Exp $
   #############################################################################
   
   package App::ValueDomain;
  @@ -96,9 +96,9 @@
   
   sub values {
       my ($self, $values_string) = @_;
  -    &App::sub_entry if ($App::trace_subs);
  +    &App::sub_entry if ($App::trace);
       $self->_load($values_string);
  -    &App::sub_exit($self->{values}) if ($App::trace_subs);
  +    &App::sub_exit($self->{values}) if ($App::trace);
       return($self->{values});
   }
   
  @@ -126,9 +126,9 @@
   
   sub labels {
       my ($self, $values_string) = @_;
  -    &App::sub_entry if ($App::trace_subs);
  +    &App::sub_entry if ($App::trace);
       $self->_load($values_string);
  -    &App::sub_exit($self->{labels}) if ($App::trace_subs);
  +    &App::sub_exit($self->{labels}) if ($App::trace);
       return($self->{labels});
   }
   
  @@ -159,9 +159,9 @@
   
   sub values_labels {
       my ($self, $values_string) = @_;
  -    &App::sub_entry if ($App::trace_subs);
  +    &App::sub_entry if ($App::trace);
       $self->_load($values_string);
  -    &App::sub_exit($self->{values}, $self->{labels}) if ($App::trace_subs);
  +    &App::sub_exit($self->{values}, $self->{labels}) if ($App::trace);
       return($self->{values}, $self->{labels});
   }
   
  @@ -189,7 +189,7 @@
   =cut
   
   sub _load {
  -    &App::sub_entry if ($App::trace_subs);
  +    &App::sub_entry if ($App::trace);
       my ($self, $values_string) = @_;
       $self->{values} = [] if (!$self->{values});
       my $values = $self->{values};
  @@ -198,7 +198,7 @@
       foreach my $value (@$values) {
           $labels->{$value} = $value if (!defined $labels->{$value});
       }
  -    &App::sub_exit() if ($App::trace_subs);
  +    &App::sub_exit() if ($App::trace);
   }
   
   #############################################################################