% perl -I. -Ilib -MCSelTest -MData::Dump -E'dd( CSelTest::parse_csel(q{ [attr()] }) )' [[{ args => [], name => "attr" }]] % perl -I. -Ilib -MCSelTest -MData::Dump -E'dd( CSelTest::parse_csel(q{ [attr()=1] }) )' [[{ args => [], name => "attr" }], "=", 1] % perl -I. -Ilib -MCSelTest -MData::Dump -E'dd( CSelTest::parse_csel(q{ [attr() eq 1] }) )' do { my $a = [ [ { args => [], name => "attr" }, # .[0] { args => 'fix', name => "attr" }, # .[1] ], # [0] "eq", # [1] 1, # [2] ]; $a[0][1]{args} = $a[0][0]{args}; $a; }