package MemImpact::GTop;
use strict;
use GTop;

my @meths = qw(size vsize rss share);
my $before = GTop->new->proc_mem($$);
my $after = my $now = $before;

printf "%-60s % 10d Bytes\n", "$_ initial memory:" , $before->$_
    for @meths;
print "-" x 77, $/;

sub import { 
    my $pack = shift;
    my $meth = shift;
    for (@_) {
        eval "use $_;";
        die "Can't load $_:\n$@\n" if $@;
        $after = GTop->new->proc_mem($$);
        printf "%-60s % 10d Bytes\n", "$meth after loading $_:" , $after->$meth;
        printf "%-60s % 10d Bytes\n", "$meth impact of $_:" , $after->$meth - $now->$meth;
        $now = $after;
    }
}
END {
    print "-" x 77, $/;
    printf "%-60s % 10d Bytes\n", "$_ total impact:" , $after->$_ - $before->$_
        for @meths;
}
1;