/debug/loaded/stats dumping

This is useful to get one more level of introspection into data
strcutures in memory

diff --git a/lib/MojoFacets/Debug.pm b/lib/MojoFacets/Debug.pm
index 4a888fe..b5e0471 100644 (file)
--- a/lib/MojoFacets/Debug.pm
+++ b/lib/MojoFacets/Debug.pm
@@ -24,4 +24,17 @@ sub _ref_size {
        tell($fh);
 }
 
+sub loaded {
+       my $self = shift;
+
+       my $path = $self->session('path');
+       my $key  = $self->param('id');
+
+       my $loaded = $MojoFacets::Data::loaded->{$path}->{$key} || die "no $path $key in loaded";
+
+       $self->render(
+               loaded => $loaded,
+       );
+}
+
 1

diff --git a/templates/debug/loaded.html.ep b/templates/debug/loaded.html.ep
new file mode 100644 (file)
index 0000000..67f9cc5
--- /dev/null
+++ b/templates/debug/loaded.html.ep
@@ -0,0 +1,3 @@
+% layout 'default';
+
+<pre class=debug><%= dumper $loaded %></pre>