NAME

XML::APML - APML parser/builder

SYNOPSIS

    # parse APML

    use XML::APML;
    use Perl6::Say;
    use DateTime;
    use DateTime::Format::W3CDTF;

    my $path = "/path/to/apml.xml";
    my $apml = XML::APML->parse_file($path);

    my $fh = IO::File->open($path);
    my $apml = XML::APML->parse_fh($fh);

    my $str = "<APML version='0.6'>...</APML>";
    my $apml = XML::APML->parse_string($str);

    foreach my $profile ($apml->profiles) {

        my $implicit = $profile->implicit_data;

        foreach my $concept ($implicit->concepts) {
            say $concept->key;
            say $concept->value;
            say $concept->from;
            my $dt = DateTime::Format::W3CDTF->new->parse_datetime($concept->updated);
            say $dt->year;
            say $dt->month;
        }

        foreach my $source ($implicit->sources) {

            say $source->key;
            say $source->value;
            say $source->name;
            say $source->type;

            foreach my $author ($source->authors) {
                say $author->key;
                say $author->value;
                say $author->from;
                my $dt = DateTime::Format::W3CDTF->new->parse_datetime($author->updated);
                say $dt->year;
                say $dt->month;
            }
        }

        my $explicit = $profile->explicit_data;
        # my $explicit = $profile->explicit;

        foreach my $concept ($explicit->concepts) {
            my $key   = $concept->key;
            my $value = $concept->value;
        }

        foreach my $source ($explicit->sources) {

            $source->key;
            $source->value;
            $source->name;
            $source->type;

            foreach my $author ($source->authors) {
                $author->key;
                $author->value;
            }

        }
    }

    foreach my $application ($apml->applications) {
        $application->name;
        $application->elem;
    }

    # build apml

    my $apml = XML::APML->new;
    $apml->title('My Attention Profile');
    $apml->generator('My Application');
    $apml->user_email('example@example.com');
    $apml->date_created( DateTime::Format::W3CDTF->new->format_datetime( DateTime->now ) );
    $apml->defaultprofile("Home");

    # or you can set them at once
    my $apml = XML::APML->new(
        title          => 'My Attention Profile', 
        generator      => 'My Application',
        user_email     => 'example@example.org',
        date_created   => DateTime::Format::W3CDTF->new->format_datetime( DateTime->now ),
        defaultprofile => 'Home',
    );

    my $profile = XML::APML::Profile->new;
    $profile->name("Home");

    $profile->explicit->add_concept( XML::APML::Concept->new(
        key   => 'music',
        value => 0.5,
    ) );
    $profile->explicit->add_concept( XML::APML::Concept->new(
        key   => 'sports',
        value => 0.9,
    ) );

    $profile->explicit->add_source( XML::APML::Source->new(
        key   => 'http://feeds.feedburner.com/TechCrunch',
        value => 0.4,
        name  => 'Techchunch',
        type  => 'application/rss+xml',
    ) );

    $profile->implicit->add_concept( XML::APML::Concept->new(
        key     => 'business',
        value   => 0.93,
        from    => 'GatheringTool.com',
        updated => '2007-03-11T01:55:00Z',
    ) );

    $profile->implicit->add_source( XML::APML::Source->new(
        key     => 'http://feeds.feedburner.com/apmlspec',
        value   => 1.00,
        from    => 'GatheringTool.com',
        updated => '2007-03-11T01:55:00Z',
        name    => 'APML.org',
        type    => 'application/rss+xml',
    ) );

    my $source = XML::APML::Source->new(
        key   => 'http://feeds.feeedburner.com/TechCrunch',
        value => 0.4,
        name  => 'Techchunch',
        type  => 'application/rss+xml',
    );

    $source->add_author( XML::APML::Author->new(
        key     => 'Sample',
        value   => 0.5,
        from    => 'GatheringTool.com',
        updated => '2007-03-11T01:55:00Z',
    ) );

    $profile->implicit->add_source($source);

    $apml->add_profile($profile);

    my $application = XML::APML::Application->new;
    $application->name("MyApplication");
    $apml->add_application($application);

    print $apml->as_xml;

DESCRIPTION

APML (Attention Profiling Mark-up Language) Parser / Builder

This module allows you to parse or build XML strings according to APML specification. Now this supports version 0.6 of APML.

See http://www.apml.org/

METHODS

new

parse_string

parse_file

parse_fh

add_profile

profiles

add_application

applications

as_xml

Build XML from object and returns it as string.

    my $apml = XML::APML->new;
    $apml->title(...);
    $apml->user_email(...);
    ...
    $apml->as_xml;

AUTHOR

Lyo Kato, lyo.kato at gmail.com

LICENSE

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself.