added remove profile link

[MojoFacets.git] / lib / MojoFacets / Debug.pm

diff --git a/lib/MojoFacets/Debug.pm b/lib/MojoFacets/Debug.pm
index 3ac7c4f..4a888fe 100644 (file)
--- a/lib/MojoFacets/Debug.pm
+++ b/lib/MojoFacets/Debug.pm
@@ -6,14 +6,22 @@ use warnings;
 use base 'Mojolicious::Controller';
 
 use Data::Dump qw(dump);
+use Storable;
 
 sub index {
        my $self = shift;
 
-
        $self->render(
                loaded => $MojoFacets::Data::loaded,
        );
 }
 
+sub _ref_size {
+       my ( $self, $ref ) = @_;
+       return unless ref($ref);
+       open(my $fh, '|-', 'cat > /dev/null');
+       Storable::store_fd $ref, $fh;
+       tell($fh);
+}
+
 1