The Perl Advent Calendar needs more articles for 2022. Submit your idea today!


XML::Loy::Atom::Threading - Threading Extension for Atom


  use XML::Loy::Atom;

  my $entry = XML::Loy::Atom->new('entry');

  # Add threading extension

  # Add Atom author and id
  $entry->author(name => 'Zoidberg');

  # Add threading information
  $entry->in_reply_to('urn:entry:1' => {
    href => 'http://sojolicious.example/blog/1'

  # Add replies information
  $entry->replies('http://sojolicious.example/blog/1/replies' => {
    count => 7,
    updated => time

  # Get threading information
  print $entry->in_reply_to->[0]->attr('href');

  # Pretty print
  print $entry->to_pretty_xml;

  # <?xml version="1.0" encoding="UTF-8" standalone="yes"?>
  # <entry xml:id="http://sojolicious.example/blog/2"
  #        xmlns=""
  #        xmlns:thr="">
  #   <author>
  #     <name>Zoidberg</name>
  #   </author>
  #   <id>http://sojolicious.example/blog/2</id>
  #   <link href="http://sojolicious.example/blog/1"
  #         rel="related" />
  #   <thr:in-reply-to href="http://sojolicious.example/blog/1"
  #                    ref="urn:entry:1" />
  #   <link href="http://sojolicious.example/blog/1/replies"
  #         rel="replies"
  #         thr:count="7"
  #         thr:updated="2013-03-10T09:55:13Z"
  #         type="application/atom+xml" />
  # </entry>


XML::Loy::Atom::Threading is an extension to XML::Loy::Atom and provides additional functionality for the work with Threading.


XML::Loy::Atom::Threading inherits all methods from XML::Loy and implements the following new ones.


  $entry->in_reply_to('urn:entry:1' => {
    href => 'http://sojolicious.example/blog/1.html',
    type => 'application/xhtml+xml'

  print $entry->in_reply_to->attr('href');

Adds an in-reply-to element to the Atom object or returns it. Accepts for adding a universally unique ID for the entry to be referred to, and a hash reference containing attributes like href, type and source. Will automatically introduce a related link, if a href parameter is given. Returns the newly added node.

On retrieval, returns the first in-reply-to element.


  $entry->replies('http://sojolicious.example/entry/1/replies' => {
    count   => 5,
    updated => '2011-08-30T16:16:40Z'

  print $entry->replies->attr('thr:count');

Adds a link element with a relation of replies to the atom object or returns it. Accepts the reference URL for replies and optional parameters like count and update of replies.

The update parameter accepts all valid parameters of XML::Loy::Date::RFC3339::new.

On retrieval returns the first replies node.

This update attribute is experimental and may return another object with a different API!


  print $entry->total;

Sets the total number of responses to the atom object or returns it.





Copyright (C) 2011-2021, Nils Diewald.

This program is free software, you can redistribute it and/or modify it under the same terms as Perl.