Select Code to Download

Select or download this

C:\Documents and Settings\Owner\Desktop\calltest>perl t.pl
attempting to go inside obj
...
on getValuePurePerl $res is defined and is 5

C:\Documents and Settings\Owner\Desktop\calltest>

Select or download this

$VAR1 = [
          [
            "DB::DbgrProperties",
...
          ]
        ];
FETCH: bad caller "DB::DbgrProperties" returning undef

Select or download this

#include "EXTERN.h"
#include "perl.h"
...
    if(self) XSRETURN_UV((UV)self);
    else XSRETURN_UNDEF;

Select or download this
```
package calltest;

...

1;
__END__
```

Select or download this

package calltest::tied;

...
1;
__END__

Select or download this

use 5.010000;
use ExtUtils::MakeMaker;
...
    # OBJECT            => '$(O_FILES)', # link all the C files too
    PM =>   {'calltest.pm' => '$(INST_LIBDIR)/calltest/calltest.pm', '
+tied.pm' => '$(INST_LIBDIR)/calltest/tied.pm'}
);