PC Professionell 2004 December/PCpro_2004_12.ISO/files/webserver/tsw/TSW_3.4.0.exe/Apache2/perl/clear.al

Text File | 2003-04-30 | 374 b | 14 lines

# NOTE: Derived from blib\lib\Config\Simple.pm.
# Changes made here will be lost when autosplit is run again.
# See AutoSplit.pm.
package Config::Simple;

#line 1461 "blib\lib\Config\Simple.pm (autosplit into blib\lib\auto\Config\Simple\CLEAR.al)"
sub CLEAR {
  my $self = shift;
  map { $self->delete($_) } $self->param();
}

# end of Config::Simple::CLEAR
1;