#!/bin/bash
extra_path=""
while [ ! -d .lib ]; do
    extra_path=$(basename $(pwd))"/$extra_path"
    cd ..
    [ $(pwd) == / ] && exit 1
done
export extra_path
{
echo "use lib '.lib/perl/';"
echo "use POWER::Feed;"
if [ "$1" != ".share" ]; then
    echo "package POWER::Feed::SportBet::$1;"
    echo "#line 1 .share"
    cat .lib/Feed/SportBet/.share
else
    echo "package POWER::Feed::SportBet::_share;"
fi
echo "#line 1 $1"
cat .lib/Feed/SportBet/$1
} | /usr/share/vim/vim*/tools/efm_perl.pl -c - |
    perl -ne '
        s!.lib/Feed/SportBet/!!g;
        s!.lib/perl/!../../perl!g;
        s!POWER::Feed::SportBet::\w+::!!g;
        print if
            !m{^.share:.*used only once: possible typo}
         && !m{masks earlier declaration in same scope}
         && !m{/Fast.pm|.*Name ".*RE_CACHE_4" used only once: possible typo}         
        '