use Text::CSV for CSV files

[MojoFacets.git] / lib / MojoFacets.pm

diff --git a/lib/MojoFacets.pm b/lib/MojoFacets.pm
index e68fde8..1f34ea8 100644 (file)
--- a/lib/MojoFacets.pm
+++ b/lib/MojoFacets.pm
@@ -28,7 +28,7 @@ sub save_tx {
                                $time = $time_travel;
                        }
 
-                       my $path = '/tmp/changes/';
+                       my $path = '/tmp/actions/';
                        mkdir $path unless -e $path;
                        $path .= sprintf '%.4f.%s', $time, join('.', @$parts);
 
@@ -38,7 +38,6 @@ sub save_tx {
        }
 }
 
-
 # This method will run once at server start
 sub startup {
     my $self = shift;
@@ -47,7 +46,7 @@ sub startup {
     my $r = $self->routes;
 
     # Default route
-    $r->route('/:controller/:action/:id')->to('data#index', id => 1);
+    $r->route('/:controller/:action/:id')->to('data#index', id => 0);
 
 #      $self->plugin( 'request_timer' );
 
@@ -58,6 +57,13 @@ sub startup {
                                save_tx( $self, $tx );
                        }
        );
+       
+       eval 'use MojoFacets::Plugin::NYTProf';
+       if ( $@ ) {
+               warn "profile disabled: ",substr($@,0,40) if $@;
+       } else {
+               MojoFacets::Plugin::NYTProf->register( $self );
+       }
 }