head

Image

code

Html

root

para

L<Examples| file:../examples/index.podlite>


L<Download |file:../download/index.podlite>


React

=begin React :component<HeaderCol> :id<menu> 
=para L<Documentation|/doc/introduction>
=para L<Modules| /mods>
=para L<Examples| file:../examples/index.podlite>
=para L<Download |file:../download/index.podlite>
=para L<About|file:../about/index.podlite>
=para 🔍 K<⌘K>/K<ctrl-K>
=end React


HEADER

FOOTER

README

item

Documentation

use v6;

use JSON::Name;
use JSON::Class;



Audio::Playlist::JSPF - JSON playlist description


=begin code

    use Audio::Playlist::JSPF;

    my $playlist = Audio::Playlist::JSPF.new(title => "My New Playlist");
    $playlist.track.append: Audio::Playlist::JSPF::Track.new(title => "some track", location => ["http://example.com/mp3"]);

    # etc

    my $json = $playlist.to-json;

    # do something with the JSON

=end code


This is a JSON representation of L<XSPF|http://xspf.org/> which is
a format for sharing media playlists.


Because this does the role L<JSON::Class> the objects can be created
directly from and serialised to JSON via the C<from-json> and C<to-json>
methods that role provides.


method add-track(*%track-data) returns Track


This is a convenience for adding a new track to the playlist, the named arguments
should be the names of the attributes of L<Track> described below, it returns the
newly created track object.


A human readable title for the playlist.


A human readable name of creator of the playlist.


Free text annotation or description of the playlist.
This should only contain plain text, not markup.


The URI of a web page with further information about the playlist.


The source URI of the playlist. (i.e. where it can be downloaded)


The canonical identifier for the playlist, it should be formed as
a valid URI but would typically be location independent.


The URI of an image that may be displayed in place of a missing
image attribute on a track.


Creation date of the playlist as a DateTime (this will be parsed
from and marshalled as IS08601 from/to JSON)


The URI of a license under which the playlist was release.,


This is a list of L<Attribution> objects, indication the original
C<location> and C<identifier> of a Playlist that this playlist may be
based on, with the most recent antecedent first.  Typically will be a
maximum of ten items.


This an Array of L<Track> objects in the suggested order that they should
be played.  The C<Track> object has the following attributes that describe
the track:


An Array of URIs for the resource (typically an audio file or stream,) each
URI should refer to a different format or representation of the same source
and a client should only use exactly one when playing the playlist.


A unique and canonical identifier for the track in URI format.


The human readable title (or track name.)


The human readable name of the creator of the resource.


A human readable annotation or description of the resource.


A URI of a location where more information about the track can be
found.


The URI of an image that may be displayed to represent this track.
If it is not present the playlist image may be used instead.


The human readable name of the "album" or collection from which the
track comes from.


This is the track number from an album or other collection that this
track represents.



class Audio::Playlist::JSPF:ver<0.0.4>:auth<github:jonathanstowe>:api<1.0> does JSON::Class {

    class Attribution does JSON::Class {
        has Str $.identifier    is rw;
        has Str $.location      is rw;
    }

    class Track does JSON::Class {
        has Str         @.identifier;
        has Str         $.album         is rw;
        has Int         $.track-number  is rw is json-name('trackNum') = 0;
        has Str         $.title         is rw is required;
        has Str         $.info          is rw is json-skip-null;
        has Str         $.annotation    is rw is json-skip-null;
        has Str         $.image         is rw is json-skip-null;
        has Str         @.location;
        has Str         $.creator       is rw is json-skip-null;
        sub duration-from-millis($m --> Duration ) { Duration.new($m/1000) }
        sub millis-from-duration($d --> Int ) { ($d.Rat * 1000).Int }
        has Duration    $.duration      is unmarshalled-by(&duration-from-millis) is marshalled-by(&millis-from-duration) is json-skip-null;
    }

    class Playlist does JSON::Class {
        has Str         $.identifier    is rw is json-skip-null;
        has Str         $.title         is rw is required;
        has Attribution @.attribution;
        has Str         $.info          is rw is json-skip-null;
        has Str         $.annotation    is rw is json-skip-null;
        has Str         $.image         is rw is json-skip-null;
        has Str         $.license       is rw is json-skip-null;
        has Str         $.creator       is rw is json-skip-null;
        has Str         $.location      is rw is json-skip-null;
        has Track       @.track;
        has DateTime    $.date          is unmarshalled-by('new') is marshalled-by('Str') = DateTime.now;

        method add-track(*%track-data --> Track) {
            my $track = Track.new(|%track-data);
            @!track.append: $track;
            $track;
        }
    }

    has Playlist $.playlist  handles <identifier title attribution info annotation image license create location track date add-track>;

    multi submethod BUILD(*%args) {
        if %args<playlist>:exists {
            if %args<playlist> ~~ Playlist {
                $!playlist = %args<playlist>;
            }
            else {
                $!playlist = Playlist.new(|%args<playlist>);
            }
        }
        else {
            $!playlist = Playlist.new(|%args);
        }
    }
}

# vim: expandtab shiftwidth=4 ft=raku


JSPF

The Raku Knowledge Base


=begin React :component<HeaderCol> :id<footer>  
=begin nested :!nested
=item1 B<Language>
    =item2 L<Get started|file:../getting-started/getting-started.podlite>
    =item2 L<Why Raku?|/doc/language/faq#Why-should-I-learn-Raku-What's-so-great-about-it>
    =item2 L<Try Raku|https://glot.io/new/raku>
    =item2 L<Raku cheat sheet|https://github.com/Raku/mu/blob/master/docs/Perl6/Cheatsheet/cheatsheet.txt>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<Raku on Exercism|https://exercism.org/tracks/raku>
    =item2 L<Wikipedia|https://en.wikipedia.org/wiki/Raku_(programming_language)>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=begin nested :!nested

=item1 B<L<Documentation|/doc>>
    =item2 L<Getting started, Migration guides from other languages, & Tutorials | file:../doc/introduction.podlite>
    =item2 L<Language References|file:../doc/reference.podlite>
    =item2 L<Type Reference| file:../doc/types.podlite>
    =item2 L<Miscellaneous| file:../doc/miscellaneous.podlite>
    =item2 L<FAQs (Frequently Asked Questions)|/doc/language/faq>
    =item2 L<Community|/doc/language/community>
    =item2 L<The list of all documents|file:../doc/index.podlite>

=item1 B<Resources>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>

=end nested
=begin nested :!nested

=item1 B<Resoures>
    =item2 L<Download | file:../download/index.podlite>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=item1 B<Learning>
    =item2 L<The Raku Guide|https://raku.guide/>
    =item2 L<Wikibook |https://en.wikibooks.org/wiki/Raku_Programming>
    =item2 L<Books |https://perl6book.com/>
    =item2 L<Rosetta Code | https://www.raku.org/community/rosettacode>
    =item2 L<Learn Raku in Y minutes|https://learnxinyminutes.com/docs/raku/>
    =item2 L<Golfing |https://github.com/AlexDaniel/raku-golf-cheatsheet>
=end nested
=begin nested :!nested

=item1 B<Explore>
    =item2 L<Raku Blog Aggregator|https://planet.raku.org/>
    =item2 L<Rakudo Weekly|https://rakudoweekly.blog/>
    =item2 L<The Weekly Challenge |https://perlweeklychallenge.org/>
    =item2 L<Raku Advent Calendar|https://raku-advent.blog/>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>
    =item2 L<empty|#>

=end nested
=end React


=begin React :component<CookieConsent> :id<CookieConsent> :buttonCaption("Got it!")
=para
This website uses cookies for analytics.
=end React


README

Audio::Playlist::JSPF

image i_github_com_jonathanstowe_audio_playlist_jspf_workflows_ci_badge_svg not found

Synopsis

Description

Installation

Support

Licence

Audio::Playlist::JSPF v0.0.5

Authors

License

Dependencies

Test Dependencies

Provides

Documentation