File Coverage

blib/lib/Quiki/Meta.pm

Criterion	Covered	Total	%
statement	12	12	100.0
branch	3	4	75.0
condition			n/a
subroutine	3	3	100.0
pod	2	2	100.0
total	20	21	95.2

package Quiki::Meta;

use YAML::Any qw.LoadFile Dump.;

sub get {
    my $node = shift;

    unless (-f "data/meta/$node") {
        my $meta = {
                    last_update_by   => '_',
                    last_updated_in  => '_',
                    rev              => 0};
        set($node, $meta);
    }

    LoadFile "data/meta/$node";
}

sub set {
    my ($node, $meta) = @_;

    open(F, ">data/meta/$node") or die $!;
    print F Dump($meta);
    close(F);
}


=encoding UTF-8

=head1 NAME

Quiki::Meta - Quiki meta information handler

=head1 SYNOPSIS

  use Quiki::Meta;

  # get meta info
  $self->{meta} = Quiki::Meta::get($node);

  # set meta info
  Quiki::Meta::set($node, $self->{meta});

=head1 DESCRIPTION

Handles saving and retriving meta information for quiki nodes. Meta
information is stored in simple text files and uses the YAML format.

=head2 set

This function updates the meta information in the file for a given page.
It uses the meta information in the current Quicki object.

=head2 get

This function retrives the meta information from the file for a given
node.

=head1 SEE ALSO

Quiki, perl(1)

=head1 AUTHOR

Alberto Simões, [e-mail]
Nuno Carvalho, [e-mail]

=head1 COPYRIGHT & LICENSE

Copyright 2009-2010 Alberto Simoes and Nuno Carvalho.

This program is free software; you can redistribute it and/or modify it
under the terms of either: the GNU General Public License as published
by the Free Software Foundation; or the Artistic License.

See http://dev.perl.org/licenses/ for more information.

=cut

"zero";