sub error {
    my $self = shift;
    my $error = shift;
    
    # Do something with the error - e.g. write it to a log file
    $self->logger->error("Warning error: $error");
    
    #.... and then provide friendly message to user
}
[download]