Select Code to Download

sub this_id :lvalue {
    $_[0]->{this_id} = $_[1] if @_ > 1;
    $_[0]->{this_id};
}

    $r->thisid = 10;