Babble::Utils - Non-essential Babble extensions and utility methods

Babble documentation Contained in the Babble distribution.

Index

Code Index:

NAME

Top

Babble::Utils - Non-essential Babble extensions and utility methods

SYNOPSIS

Top

 use Babble::Utils;

 my $babble = Babble->new (
	-cache => {
		-cache_fn => 'cache.db',
		-cache_fields => ['id', 'date'],
	},
 );

 ...
 $babble->collect_feeds ();
 $babble->cache ()
 ...

DESCRIPTION

Top

Babble::Utils provides non-essential extensions to a Babble object. All methods herein fall under the Babble namespace, and are available with every Babble instance one makes, when this module is in use.

METHODS

Top

Babble::Utils provides the following methods:

cache(%params)

This function does item caching. It goes over all the items in the Babble object, and stores them in a cache, if they're not present. If they are already present in there, the keys specified in the -cache_fields parameter will be used instead of the items respective keys (ie, the items keys will be replaced from values from the cache). This can be used to cache the approximate date of items which didn't come with a date field by default.

This is just a wrapper around Babble::Cache, really.

AUTHOR

Top

Gergely Nagy, algernon@bonehunter.rulez.org

Bugs should be reported at http://bugs.bonehunter.rulez.org/babble.

SEE ALSO

Top

Babble, Babble::Cache

Babble documentation Contained in the Babble distribution. 
## Babble/Utils.pm
## Copyright (C) 2004 Gergely Nagy <algernon@bonehunter.rulez.org>
##
## This file is part of Babble.
##
## Babble is free software; you can redistribute it and/or modify it
## under the terms of the GNU General Public License as published by
## the Free Software Foundation; version 2 dated June, 1991.
##
## Babble is distributed in the hope that it will be useful, but WITHOUT
## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
## FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
## for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program; if not, write to the Free Software
## Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA

package Babble::Utils;

use strict;


sub Babble::cache (%) {
	my ($self, %params) = @_;
	my $cache_fields = $params{-cache_fields} ||
		$self->Cache->{-cache_fields};

	foreach my $item ($self->all) {
		$self->Cache->frob ('Items', $item->{id}, \$item,
				    $cache_fields);
	}
}


1;

# arch-tag: 10f0e287-88a5-4c94-8e4d-439f9d7fcc40