DUMMY.pm 512 B

123456789101112131415161718192021222324252627282930
  1. package Trog::Data::DUMMY;
  2. use strict;
  3. use warnings;
  4. no warnings 'experimental';
  5. use feature qw{signatures};
  6. sub new ($class, $config) {
  7. return bless($config,__PACKAGE__);
  8. }
  9. # These have to be sorted as requested by the client
  10. sub get ($self, %request) {
  11. return [{ data => "<hr><h3 class='blogtitles'><a href='/'>Example Post</a></h3>Here, caveman", id => 666 }]
  12. }
  13. sub add ($self, @posts) {
  14. return 1;
  15. }
  16. sub update($self, @posts) {
  17. return 1;
  18. }
  19. sub delete($self, @ids) {
  20. return 1;
  21. }
  22. 1;