Subversion Repositories DevTools

Rev

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

Rev 5710 Rev 6177
Line 1... Line 1...
1 
########################################################################
 1 
########################################################################
2 
# Copyright (c) VIX TECHNOLOGY (AUST) LTD
 2 
# COPYRIGHT - VIX IP PTY LTD ("VIX"). ALL RIGHTS RESERVED.
3 
#
 3 
#
4 
# Module name   : JatsError
 4 
# Module name   : JatsError
5 
# Module type   : Perl Package
 5 
# Module type   : Perl Package
6 
# Compiler(s)   : Perl
 6 
# Compiler(s)   : Perl
7 
# Environment(s): jats
 7 
# Environment(s): jats
Line 831... Line 831...
831 
    local $Data::Dumper::Indent  = 1;
 831 
    local $Data::Dumper::Indent  = 1;
832 
 
 832 
 
833 
    # We want to get access to the stash corresponding to the package name
 833 
    # We want to get access to the stash corresponding to the package name
834 
 
 834 
 
835 
    *stash = *{"${packageName}::"};  # Now %stash is the symbol table
 835 
    *stash = *{"${packageName}::"};  # Now %stash is the symbol table
836 
#    $, = " ";                        # Output separator for print
 - 
 
- 
 
 836 
 
837 
    # Iterate through the symbol table, which contains glob values
 837 
    # Iterate through the symbol table, which contains glob values
838 
    # indexed by symbol names.
 838 
    # indexed by symbol names.
- 
 
 839 
 
839 
    while (my ($varName, $globValue) = each %stash)
 840 
    foreach my $varName ( sort keys %stash)
840 
    {
 841 
    {
- 
 
 842 
        my $globValue = $stash{$varName};
841 
        print "$varName =============================\n";
 843 
        print "$varName =============================\n";
842 
        next if ( $varName eq 'stash' );
 844 
        next if ( $varName eq 'stash' );
843 
        local *alias = $globValue;
 845 
        local *alias = $globValue;
844 
        if (defined ($alias)) {
 846 
        if (defined ($alias)) {
845 
            print Data::Dumper->Dump ( [$alias], ["*$varName" ]);
 847 
            print Data::Dumper->Dump ( [$alias], ["*$varName" ]);