use Class::Method::Modifiers;

around 'add' => sub {
    my $orig = shift;
    my $c = shift;

    my ($data, $data_type) = @{_process_data($c)};
    my ($name) = @{$c->argv};

    $orig->($data, $data_type, $name, @_);
};

sub add ($data, $data_type, $name) {
    $data->add($name);    
}