integrated code from a different project

perl/Gnome-Tomboy/lib/Tomboy.pm

+
+=head1 NAME
+
+  Tomboy
+
+=head1 DESCRIPTION
+
+utility functions to work with Tomboy
+
+=head1 SYNOPSIS
+
+  use Tomboy;
+
+  $text2= $Tomboy::link($text);
+  $text2= $Tomboy::list_item($text);
+
+=head1 INTERNAL FUNCTIONS
+
+=cut
+
+package Tomboy;
+
+use strict;
+
+use UUID;
+
+sub link
+{
+  my $s= shift;
+  '<link:internal>' . $s . '</link:internal>';
+}
+
+sub list_item
+{
+  my $s= shift;
+  '<list-item dir="ltr">' . $s . '</list-item>';
+}
+
+=head2 ts_ISO ($time)
+
+return timestamp in ISO format as used by Tomboy
+
+=cut
+
+sub ts_ISO
+{
+  my $time= shift || time ();
+  my @ts= localtime ($time);
+  sprintf ("%04d-%02d-%02dT%02d:%02d:%02d.0000000+01:00",
+           $ts[5]+1900, $ts[4]+1, $ts[3], $ts[2], $ts[1], $ts[0]);
+}
+
+sub get_uuid
+{
+  my ($uuid, $uuid_str);
+  UUID::generate ($uuid);
+  UUID::unparse ($uuid, $uuid_str);
+  $uuid_str;
+}
+
+1;
+