package MT::Plugin::CutFirstChar;
use strict;

use MT;
use MT::Template::Context;
use MT::Plugin;

my $plugin = MT::Plugin->new;
$plugin->name("Cut First Char 0.01");
$plugin->description('Cut first n char from MTtag.');
MT->add_plugin($plugin);

MT::Template::Context->add_global_filter(cutfirstchar => \&cutfirstchar);
 
sub cutfirstchar {
    my ($text, $arg, $ctx) = @_;

    $text = substr $text, $arg;
    $text;
}
 
1;