Help for this page

Select Code to Download


  1. or download this
    sub ModName::TIESCALAR {
   my $class = shift;
...
print(tied($var) ? 'tied' : 'not tied', "\n");  # not tied
test($var);
print(tied($var) ? 'tied' : 'not tied', "\n");  # tied
  2. or download this
    sub ModName::TIESCALAR {
   my $class = shift;
...

my $ref = test();
print(tied($$ref) ? 'tied' : 'not tied', "\n");  # tied
  3. or download this
    sub ModName::TIESCALAR {
   my $class = shift;
...

my $dst = $src;
print(tied($dst) ? 'tied' : 'not tied', "\n");  # not tied