Guest User

Untitled

a guest
Jun 19th, 2018
81
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.52 KB | None | 0 0
  1. #!/usr/bin/env perl
  2.  
  3. use common::sense;
  4. use utf8;
  5.  
  6. use Text::MTFormatBuilder '-Declare';
  7.  
  8. print blog_export {
  9. entry {
  10. metadata {
  11. author 'author_test';
  12. title 'title_test';
  13. };
  14. body 'test_body';
  15. extended_body 'test_extended_body';
  16. excerpt 'test_excerpt';
  17. };
  18. };
  19.  
  20. __END__
  21.  
  22. AUTHOR: author_test
  23. TITLE: title_test
  24. CONVERT BREAKS: 0
  25. ALLOW COMMENTS: 1
  26. ALLOW PINGS: 1
  27. -----
  28. BODY:
  29. test_body
  30. -----
  31. EXTENDED BODY:
  32. test_extended_body
  33. -----
  34. EXCERPT:
  35. test_excerpt
  36. -----
  37. --------
Add Comment
Please, Sign In to add comment