|
|
@ -17,8 +17,7 @@ sub _paste_path { |
|
|
|
return $self->app->home->rel_file("$root/$time.json"); |
|
|
|
return $self->app->home->rel_file("$root/$time.json"); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
sub create |
|
|
|
sub create { |
|
|
|
{ |
|
|
|
|
|
|
|
my ($self) = @_; |
|
|
|
my ($self) = @_; |
|
|
|
|
|
|
|
|
|
|
|
my @syntax = ('auto'); |
|
|
|
my @syntax = ('auto'); |
|
|
@ -30,8 +29,7 @@ sub create |
|
|
|
$self->render(); |
|
|
|
$self->render(); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
sub view |
|
|
|
sub view { |
|
|
|
{ |
|
|
|
|
|
|
|
my ($self) = @_; |
|
|
|
my ($self) = @_; |
|
|
|
my $time = $self->stash('time'); |
|
|
|
my $time = $self->stash('time'); |
|
|
|
|
|
|
|
|
|
|
@ -59,8 +57,7 @@ sub view |
|
|
|
$self->render(); |
|
|
|
$self->render(); |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
sub save |
|
|
|
sub save { |
|
|
|
{ |
|
|
|
|
|
|
|
my ($self) = @_; |
|
|
|
my ($self) = @_; |
|
|
|
|
|
|
|
|
|
|
|
eval { |
|
|
|
eval { |
|
|
@ -93,8 +90,7 @@ sub save |
|
|
|
return 1; |
|
|
|
return 1; |
|
|
|
} |
|
|
|
} |
|
|
|
|
|
|
|
|
|
|
|
sub prune |
|
|
|
sub prune { |
|
|
|
{ |
|
|
|
|
|
|
|
my ($self) = @_; |
|
|
|
my ($self) = @_; |
|
|
|
|
|
|
|
|
|
|
|
eval { |
|
|
|
eval { |
|
|
|