[Bps-public-commit] r12453 - in Prophet/trunk: . t

jesse at bestpractical.com jesse at bestpractical.com
Sat May 17 05:33:55 EDT 2008


Author: jesse
Date: Sat May 17 05:33:54 2008
New Revision: 12453

Removed:
   Prophet/trunk/lib/Prophet/Config.pm
   Prophet/trunk/t/delete.t
Modified:
   Prophet/trunk/   (props changed)
   Prophet/trunk/MANIFEST
   Prophet/trunk/lib/Prophet/App.pm

Log:


Modified: Prophet/trunk/MANIFEST
==============================================================================
--- Prophet/trunk/MANIFEST	(original)
+++ Prophet/trunk/MANIFEST	Sat May 17 05:33:54 2008
@@ -24,7 +24,6 @@
 lib/Prophet/ChangeSet.pm
 lib/Prophet/CLI.pm
 lib/Prophet/Collection.pm
-lib/Prophet/Config.pm
 lib/Prophet/Conflict.pm
 lib/Prophet/ConflictingChange.pm
 lib/Prophet/ConflictingPropChange.pm
@@ -62,7 +61,6 @@
 t/create-conflict.t
 t/create.t
 t/delete-delete-conflict.t
-t/delete.t
 t/edit.t
 t/export.t
 t/generalized_sync_n_merge.t

Modified: Prophet/trunk/lib/Prophet/App.pm
==============================================================================
--- Prophet/trunk/lib/Prophet/App.pm	(original)
+++ Prophet/trunk/lib/Prophet/App.pm	Sat May 17 05:33:54 2008
@@ -4,15 +4,10 @@
 package Prophet::App;
 use base qw/Class::Accessor/;
 use Path::Class;
-__PACKAGE__->mk_accessors(qw/_resdb_handle _config/);
+__PACKAGE__->mk_accessors(qw/_resdb_handle/);
 
 use constant DEFAULT_REPLICA_TYPE => 'prophet';
 
-=head1 NAME
-
-Prophet::App
-
-=cut
 
 sub _handle {
     my $self = shift;
@@ -94,31 +89,5 @@
     $@ = '';
 }
 
-=head2 config
-
-If called with no arguments, returns the L<Prophet::Config> instance.
-
-If called with one arguments, returns the value of that config setting.
-
-If called with two arguments, sets the value of that config setting.
-
-=cut
-
-sub config {
-    my $self = shift;
-
-    unless ($self->_config) {
-        require Prophet::Config;
-        $self->_config(Prophet::Config->new);
-    }
-
-    return $self->_config if @_ == 0;
-
-    my $key = shift;
-    return $self->_config->get($key) if @_ == 0;
-
-    my $value = shift;
-    return $self->_config->set($key => $value);
-}
 
 1;



More information about the Bps-public-commit mailing list