Got it working by changing the code to use the more convetional syntax :-

sub status {
    my $me = shift;
    return $me->{status};
}

Thanks
UnderMine