package lib::clean;

sub import
{
    my (@coderefs, @rest);

    foreach (@INC)
    {
        if (ref $_ && ref $_ eq 'CODE')
        {
            push @coderefs, $_;
        }
        else
        {
            push @rest, $_;
        }
    }
    @INC = (@coderefs, @rest);
}

1;