# # Copyright (c) 2014 NetApp, Inc., All Rights Reserved. # Any use, modification, or distribution is prohibited # without prior written consent from NetApp, Inc. # package NACL::Service::HelloWorld; use strict; use warnings; use parent qw(NACL::Service); use constant public_api => (hello_world => {worker_type => 0}, goodnight_moon => {worker_type => 1}, # ... ); sub hello_world { my $self = shift; my %opts = @_; # ... return 'Hello World'; } 1; __END__