view release on metacpan or  search on metacpan

samples/google.pm  view on Meta::CPAN

		my $r = $self->save( $o ) ;
		$self->save( {
				about => $ekey,
				record => $r->SQLObjectID
				} ) ;
		}

	return @out ;
	}

sub update {
	my $self = shift ;
	$self = $self->db unless ref $self ;
	my $token = shift or return warn 'requires token' ;

	my @changes = $self->about( $token ) ;
	shift @changes ;		##rerun
	push @changes, @_ ;

	my @updates = grep $_->{file},
			map { $token->content( GET => $_ ) }