package PIL::PExp;
use warnings;
use strict;
sub fixup {
my $self = shift;
die unless keys %$self == 1;
die unless $self->{pLV};
return bless { pLV => $self->{pLV}->fixup } => "PIL::PExp";
}
sub as_js {
my $self = shift;
($self->{pLV}{CC} and die) or $self->{pLV}{CC} = $self->{CC} if $self->{CC};
no warnings "recursion";
return $self->{pLV}->as_js;
}
sub unwrap { $_[0]->{pLV} }
1;