Daizu

 view release on metacpan or  search on metacpan

lib/Daizu/File.pm  view on Meta::CPAN

the 

This is where article loader plugins set with the L<Daizu> method
L<add_article_loader()|Daizu/$cms-E<gt>add_article_loader($mime_type, $path, $object, $method)>
are invoked.

Doesn't return anything.

=cut

sub update_loaded_article_in_db
{
    my ($self) = @_;
    return unless $self->{article};
    return transactionally($self->{db}, \&_update_loaded_article_in_db_txn,
                           $self);
}

sub _update_loaded_article_in_db_txn
{
    my ($self) = @_;

lib/Daizu/Util.pm  view on Meta::CPAN

URLs which occur during the update, when one file adds a new URL which is
already active for another file, but will be inactive by the end of the
transaction.

All of this is done in a single database transaction.

TODO - update docs about new return value

=cut

sub update_all_file_urls
{
    my ($cms, $wc_id) = @_;
    my $db = $cms->{db};

    return transactionally($db, sub {
        my $sth = $db->prepare(q{
            select id
            from wc_file
            where wc_id = ?
        });

lib/Daizu/Wc.pm  view on Meta::CPAN

=item $wc->update($revnum)

Update a database working copy to revision C<$revnum>.  This is done in a
transaction, which will be rolled back if anything goes wrong, leaving the
WC in its original state.  C<$revnum> can be C<undef> to update to the most
recent revision available.

=cut

sub update
{
    my ($self, $revnum) = @_;
    return transactionally($self->{cms}{db}, \&_update_txn, $self, $revnum);
}

sub _update_txn
{
    my ($self, $revnum) = @_;
    my $cms = $self->{cms};
    my $db = $cms->{db};

 view all matches for this distribution
 view release on metacpan -  search on metacpan