load_yml.pl

#!/usr/bin/perl 
# PODNAME: rubric-loadyml
use YAML::XS;
use Rubric::Link;
use Rubric::User;

my $user = Rubric::User->retrieve(shift @ARGV || $ENV{USER});

my $yaml;
{ local $/; $yaml = <>; }
my $links = Load($yaml);

foreach (@$links) {
	my $link = Rubric::Link->find_or_create({uri => $_->{link}});
  $link ||= '';
	my $entry = $user->add_to_entries({
		link  => $link,
		title => $_->{title},
		description => $_->{description},
		body     => $_->{body},
		created  => $_->{created},
		modified => $_->{modified},
	});
	$entry->add_to_tags({tag => $_}) for keys %{$_->{tags}};
}

$user->update;