Subversion Repositories DevTools

Rev

Rev 263 | Rev 369 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 263 Rev 283
Line 97... Line 97...
97 
#
 97 
#
98 
# Returns         : This function does not return
 98 
# Returns         : This function does not return
99 
#
 99 
#
100 
sub AUTOLOAD
 100 
sub AUTOLOAD
101 
{
 101 
{
- 
 
 102 
    my $args = JatsError::ArgsToString( \@_);
102 
    my $fname = $::AUTOLOAD;
 103 
    my $fname = $::AUTOLOAD;
103 
    $fname =~ s~^\w+::~~;
 104 
    $fname =~ s~^\w+::~~;
104 
    my ($package, $filename, $line) = caller;
 105 
    my ($package, $filename, $line) = caller;
105 
 
 106 
 
106 
    Error ("Directive not known or not allowed in this context: $fname",
 107 
    Error ("Directive not known or not allowed in this context: $fname",
107 
           "Directive: $fname( @_ );",
 108 
           "Directive: $fname( $args );",
108 
           "File: $filename, Line: $line" );
 109 
           "File: $filename, Line: $line" );
109 
}
 110 
}
110 
 
 111 
 
111 
#-------------------------------------------------------------------------------
 112 
#-------------------------------------------------------------------------------
112 
# Function        : ConfigLoad
 113 
# Function        : ConfigLoad