package lib;

sub import
{
    # call the built-in lib first
    require 'C:/Perl/lib/lib.pm';
    import(@_);

    # re-order @INC with CODE refs at front
    my (@coderefs, @rest);
    foreach (@INC)
    {
        if (ref $_ && ref $_ eq 'CODE')
        {
            push @coderefs, $_;
        }
        else
        {
            push @rest, $_;
        }
    }
    @INC = (@coderefs, @rest);
}

1;