I have been working ona job schedular for some time and came up with the idea of having a option to store schedule data as XML

However obviously the code part produces an error Can't encode a value of type: CODE at C:\ROBERT\psch\formonks.pm line 45

Anyone approched something like this before below is a small section of code. 

use strict;
my $inv870 = new Job("INV870","perl INV870.pl","172.**.***.**",sub{
                                                                   #do
+something after the job
                                                                   });
my $suite = new Suite('AMREPS',[$inv870]);
print $suite->xml;

package Job;
sub new {
  my $class    = shift;
  my $name     = shift;
  my $command  = shift;
  my $location = shift;
  my $afterhook= shift;
  
  my $data = {UNIQUENAME   => $name,
              COMMAND_LINE => $command,
              LOCATION     => $location,
              HOOK         => $afterhook};
  
  my $self = bless $data, $class;
  return $self;
}
1;

package Suite;
use XML::Simple;
sub new {
  my $class = shift;
  my $name = shift;
  my $jobarray = shift;
  
  my $data = {UNIQUENAME  => $name,
              JOBS        => $jobarray};
  
  my $self = bless $data, $class;
  return $self;
  
}

sub xml{
  
  my $class = shift;
  return XMLout($class);
  
}
1;

[download]

In reply to XML and code snippets by Scarborough

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.