use Cache::FileCache;
use Storable qw(freeze); use MIME::Base64;
use Calendar::Simple;
+use Text::Balanced qw(extract_multiple extract_quotelike);
sub import {
my $whence = caller;
my ($class) = @_;
}
+sub separate_tags {
+ map { s/^"|"$//g; $_}
+ extract_multiple(
+ lc $_[1], [
+ \&extract_quotelike,
+ qr/([^\s,]+)/
+ ], undef,1)
+}
# THIS IS A HACK