File Coverage

lib/Bookmarks/XML.pm

Criterion	Covered	Total	%
statement	10	12	83.3
branch			n/a
condition			n/a
subroutine	4	4	100.0
pod			n/a
total	14	16	87.5

package Bookmarks::XML;
use base 'Bookmarks::Parser';
use strict;
use warnings;
use XML::Simple;

sub new
{
    my ($class, %opts) = @_;
#    %opts = check_options(%opts);

    my $self = bless({%opts}, ref($class) || $class);
    return $self;
}

sub parse_file
{
    my ($sel, $filename) = @_;

    return if(!$filename || !-e $filename);

    my $bookmarks = XMLin($filename, ForceArray => ['folder']);

}

sub get_header_as_string
{
    my ($self) = @_;

    my $now = scalar localtime;
    my $title = $self->{_title} || 'Bookmarks';
    my $header = << "XML";



XML

    return $header;
}

sub get_item_as_string
{
    my ($self, $item) = @_;

    if(!defined $item->{id} || !$self->{_items}{$item->{id}})
    {
        warn "No such item in get_item_as_string";
        return;
    }

    my $string = '';
    my ($id, $url, $name, $visited, $created, $modified, $icon, $desc, $expand, $trash, $order) =
        ($item->{id} || 0,
         $item->{url} || '',
         $item->{name} || '',
         $item->{visited} || 0,
         $item->{created} || time(),
         $item->{modified} || 0,
         $item->{icon} || '',
         $item->{description} || '',
         $item->{expanded} || '',
         $item->{trash} || '',
         $item->{order} || '');

    if($item->{type} eq 'folder')
    {
        $string .= << "XML";

XML

        $string .= $self->get_item_as_string($self->{_items}{$_})
            foreach(@{$item->{children}});
        $string .= "  \n";
    }
    elsif($item->{type} eq 'url')
    {
        $string .= << "XML";

XML

    }

    return $string;
}

sub get_footer_as_string
{
    my ($self) = @_;

    my $footer = << "XML";

XML

    return $footer;
}

1;

=head1 NAME

Bookmarks::Parser::XML - Backend for XML format

=head1 DESCRIPTION

This backend is completely untested, and probably does not work yet. use at own risk.
It will probably be replaced with an XBEL based backend in a future release.

=head1 METHODS

=head2 get_footer_as_string

=head2 get_header_as_string

=head2 get_item_as_string

=head2 new

=head2 parse_file

For these methods, consult L documentation.
They are overridden because of the XML behaviour here.
Interface remains the same.

=cut