The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
use strict;
use ORLite::Migrate::Patch;

# We now use classes as names

do( "UPDATE plugin SET name = 'Padre::Plugin::' || name"    );
do( "DELETE FROM plugin WHERE name LIKE 'Padre::Plugin::%'" );