PPI::Token::QuoteLike::Words->literal does not unescape

[moregan]

Given this test file:

$ cat test.pl
print join( ",", qw/ \/ / );

perl unescapes the interior backslash:

$ perl -W test.pl
/

but PPI doesn't:

$ perl -MPPI::Document -WE 'say join( ",", PPI::Document->new("test.pl")->schild(0)->schild(2)->schild(0)->schild(2)->literal )'
\/

The rules are in perlop's "Gory details of parsing quoted constructs" section.