File Coverage

blib/lib/RecentInfo/GroupEntry.pm

Criterion	Covered	Total	%
statement	20	20	100.0
branch			n/a
condition			n/a
subroutine	5	5	100.0
pod	0	2	0.0
total	25	27	92.5

package RecentInfo::GroupEntry 0.04;
use 5.020;
use Moo 2;
use experimental 'signatures';

=head1 NAME

RecentInfo::GroupEntry - recent files group XBEL entry

=cut

has ['group'] => (
    is => 'ro',
    required => 1
);

sub as_XML_fragment($self, $doc) {
    my $group = $doc->createElement('bookmark:group');
    $group->addChild($doc->createTextNode($self->group));
    #$group->setTextContent($self->group);
    return $group
}

sub from_XML_fragment( $class, $frag ) {
    $class->new(
        group => $frag->textContent,
    );
}

1;

=head1 REPOSITORY

The public repository of this module is
L.

=head1 SUPPORT

The public support forum of this module is L.

=head1 BUG TRACKER

Please report bugs in this module via Github
at L

=head1 AUTHOR

Max Maischein C

=head1 COPYRIGHT (c)

Copyright 2024-2024 by Max Maischein C.

=head1 LICENSE

This module is released under the same terms as Perl itself.

=cut