Select Code to Download

    package Thing;
    use Moose;
...
        my ($self) = @_;
        $self->_delete ? 'yes' : 'no'
    }

($q=q:Sq=~/;[c](.)(.)/;chr(-||-|5+lengthSq)`"S|oS2"`map{chr |+ord
}map{substrSq`S_+|`|}3E|-|`7**2-3:)=~y+S|`+$1,++print+eval$q,q,a,