Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl
use warnings;
...
like $json->{template}, qr/{"data":"jsondata"}/, 'JSON OK';

done_testing;
  2. or download this
    package Service::XML;

...
}

__PACKAGE__
  3. or download this
    package Service::Factory;

...
    return $subclass->new(@_[2 .. $#_])
}
__PACKAGE__
  4. or download this
    package Service::JSON;

...
}

__PACKAGE__
  5. or download this
    package Service;

...
}

__PACKAGE__