Skip to content

Commit

Permalink
Checking in changes prior to tagging of version 0.1.
Browse files Browse the repository at this point in the history
Changelog diff is:

diff --git c/Changes w/Changes
index 59847a5..426803a 100644
--- c/Changes
+++ w/Changes
@@ -1,5 +1,6 @@
 Revision history for True-Truth

-0.01    Date/time
-        First version, released on an unsuspecting world.
+
+0.1     2012-04-26T13:41:41
+        First version of the True::Truth
  • Loading branch information
norbu09 committed Apr 26, 2012
1 parent 14eb65d commit ace55e9
Show file tree
Hide file tree
Showing 4 changed files with 64 additions and 22 deletions.
5 changes: 3 additions & 2 deletions Changes
@@ -1,5 +1,6 @@
Revision history for True-Truth

0.01 Date/time
First version, released on an unsuspecting world.

0.1 2012-04-26T13:41:41
First version of the True::Truth

4 changes: 4 additions & 0 deletions MANIFEST
Expand Up @@ -2,8 +2,12 @@ Changes
lib/True/Truth.pm
Makefile.PL
MANIFEST This list of files
MANIFEST.SKIP
README
t/00-load.t
t/boilerplate.t
t/manifest.t
t/pod-coverage.t
t/pod.t
t/merge.t
t/truth.t
77 changes: 57 additions & 20 deletions lib/True/Truth.pm
Expand Up @@ -28,13 +28,46 @@ has 'redis' => (
lazy => 1,
);

=head1 NAME
True::Truth - The one True::Truth!
=head1 VERSION
Version 0.1.1.1.1.1.1
=head1 SYNOPSIS
Quick summary of what the module does.
Perhaps a little code snippet.
use True::Truth;
my $foo = True::Truth->new();
...
=head1 FUNCTIONS
=head2 add_true_truth
needs docs
=cut

sub add_true_truth {
my ($self, $key, $truth) = @_;

return $self->_add($key, $truth) -1;
}

=head2 add_pending_truth
needs docs
=cut

sub add_pending_truth {
my ($self, $key, $truth) = @_;

Expand All @@ -44,6 +77,12 @@ sub add_pending_truth {
return $self->_add($key, $truth) -1;
}

=head2 persist_pending_truth
needs docs
=cut

sub persist_pending_truth {
my ($self, $key, $index) = @_;

Expand All @@ -55,13 +94,25 @@ sub persist_pending_truth {
return;
}

=head2 remove_pending_truth
needs docs
=cut

sub remove_pending_truth {
my ($self, $key, $index) = @_;

$self->_add($key, {}, $index);
return;
}

=head2 get_true_truth
needs docs
=cut

sub get_true_truth {
my ($self, $key) = @_;

Expand All @@ -70,6 +121,12 @@ sub get_true_truth {
return $truth;
}

=head2 merge
needs docs
=cut

# This was stolen from Catalyst::Utils... thanks guys!
sub merge (@);
sub merge (@) {
Expand Down Expand Up @@ -135,26 +192,6 @@ sub _connect_redis {
return Redis->new($self->redis_server);
}

=head1 NAME
True::Truth - The one True::Truth!
=head1 VERSION
Version 0.1
=head1 SYNOPSIS
Quick summary of what the module does.
Perhaps a little code snippet.
use True::Truth;
my $foo = True::Truth->new();
...
=head1 AUTHOR
Lenz Gschwendtner, C<< <norbu09 at cpan.org> >>
Expand Down
File renamed without changes.

0 comments on commit ace55e9

Please sign in to comment.