Help for this page

Select Code to Download


  1. or download this
    package CSelTest;

use 5.020000;
...
}

1;
  2. or download this
    % perl -I. -Ilib -MCSelTest -MData::Dump -E'dd( CSelTest::parse_csel(q
+{ [attr] }) )'
[[{ name => "attr" }]]

...

% perl -I. -Ilib -MCSelTest -MData::Dump -E'dd( CSelTest::parse_csel(q
+{ [attr eq 1] }) )'
[[{ name => "attr" }], "eq", 1]
  3. or download this
    % perl -I. -Ilib -MCSelTest -MData::Dump -E'dd( CSelTest::parse_csel(q
+{ [attr()] }) )'
[[{ args => [], name => "attr" }]]

...
  $a[0][1]{args} = $a[0][0]{args};
  $a;
}