Beagle

 view release on metacpan or  search on metacpan

lib/Beagle/Backend/base.pm  view on Meta::CPAN

                $file{ $dir . $left } = {
                    path    => decode( locale_fs => $path ),
                    content => decode_utf8 <$fh>,
                };
            }
        }
    }
    return %file;
}

sub update {
    my $self   = shift;
    my $object = shift;
}

sub delete {
    my $self   = shift;
    my $object = shift;
}

sub updated {
    my $self = shift;
}

no Any::Moose;
__PACKAGE__->meta->make_immutable;

1;
__END__

lib/Beagle/Backend/fs.pm  view on Meta::CPAN

extends 'Beagle::Backend::base';

sub create {
    my $self   = shift;
    my $object = shift;
    return unless -e $self->encoded_root;
    my %args = (@_);
    $self->_save( $object, %args );
}

sub update {
    my $self         = shift;
    my $object       = shift;

    my $path = $object->path;
    return unless $path;

    if (   $object->can('original_path')
        && $object->original_path
        && $object->original_path ne $object->path )
    {

lib/Beagle/Role/Date.pm  view on Meta::CPAN

sub created_month {
    my $self = shift;
    return $self->format_date( '%m', $self->created );
}

sub created_day {
    my $self = shift;
    return $self->format_date( '%d', $self->created );
}

sub updated_string {
    my $self = shift;
    return $self->format_date( '%Y-%m-%d %T %z', $self->updated );
}

sub updated_year {
    my $self = shift;
    return $self->format_date( '%Y', $self->updated );
}

sub updated_month {
    my $self = shift;
    return $self->format_date( '%m', $self->updated );
}

sub updated_day {
    my $self = shift;
    return $self->format_date( '%d', $self->updated );
}

no Any::Moose 'Role';
1;
__END__


=head1 AUTHOR

lib/Beagle/Web.pm  view on Meta::CPAN

            $category = join ', ', $category, $entry->type,
              from_array( $entry->tags );
        }
        $item->category($category);
    }

    $feed->normalize();
    return $feed{$name} = $feed;
}

sub update_feed {
    shift @_ if @_ && $_[0] eq 'Beagle::Web';
    my $bh = shift;
    delete $feed{ $bh->name };
    feed($bh);
}

my %archives;
my %tags;

use Storable 'dclone';

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