sub output {
    my $self = shift;
    my ($dom, $xslfile, $stylesheet);
    if ($self->{'stylesheet'}) { 
        $xslfile = $self->{'basedir'} . $self->{'stylesheet'};
        $stylesheet = $self->{'xslt'}->parse_stylesheet_file($xslfile)
+;
    } else {
        local $/ = undef;
         my $doc = $self->{'parser'}->parse_string(<DATA>);
        $stylesheet = $self->{'xslt'}->parse_stylesheet($doc);
    }
    $dom = $stylesheet->transform($self->{'dom'});
    return $dom->toString();
}
[download]

Because each of the modules needs to apply an XSL stylesheet to the XML document containing the resume, I figured I should abstract that part of the output sub into a apply_stylesheet sub in the parent Resume object like so:

sub apply_stylesheet {
    my $self = shift;
    my ($dom, $xslfile, $stylesheet);
    if ($self->{'stylesheet'}) { 
        $xslfile = $self->{'basedir'} . $self->{'stylesheet'};
        $stylesheet = $self->{'xslt'}->parse_stylesheet_file($xslfile)
+;
    } else {
        local $/ = undef;
         my $doc = $self->{'parser'}->parse_string(<DATA>);
        $stylesheet = $self->{'xslt'}->parse_stylesheet($doc);
    }
    $dom = $stylesheet->transform($self->{'dom'});
    return $dom;
}
[download]

However, as would be obvious to people with more OO experience than I have, when the output sub in a Resume::Text object calls apply_stylesheet (which is defined in the parent Resume package, rather in the child Resume::Text package), the the sub tries to read the data in the __DATA__ section of Resume.pm, not the one in Resume/Text.pm.

If this is a totally wrong-headed way of approaching this issue, please let me know. ;) If not, I'm sure there's a relatively simple solution that I haven't managed to get into my head yet. I'm still fairly new to OO in Perl, and I don't quite grok all it's subtleties yet.

Thanks for any help you can give me,
-rattus
__________
He seemed like such a nice guy to his neighbors / Kept to himself and never bothered them with favors
- Jefferson Airplane, "Assassin"