# NOTE: Derived from blib/lib/Term/ReadLine/Gnu/XS.pm. # Changes made here will be lost when autosplit is run again. # See AutoSplit.pm. package Term::ReadLine::Gnu::XS; #line 208 "blib/lib/Term/ReadLine/Gnu/XS.pm (autosplit into blib/lib/auto/Term/ReadLine/Gnu/XS/rl_generic_bind.al)" sub rl_generic_bind ($$$;$) { if ($_[0] == Term::ReadLine::Gnu::ISFUNC) { if (defined $_[3]) { _rl_generic_bind_function($_[1], _str2fn($_[2]), _str2map($_[3])); } else { _rl_generic_bind_function($_[1], _str2fn($_[2])); } } elsif ($_[0] == Term::ReadLine::Gnu::ISKMAP) { if (defined $_[3]) { _rl_generic_bind_keymap($_[1], _str2map($_[2]), _str2map($_[3])); } else { _rl_generic_bind_keymap($_[1], _str2map($_[2])); } } elsif ($_[0] == Term::ReadLine::Gnu::ISMACR) { if (defined $_[3]) { _rl_generic_bind_macro($_[1], $_[2], _str2map($_[3])); } else { _rl_generic_bind_macro($_[1], $_[2]); } } else { carp("Term::ReadLine::Gnu::rl_generic_bind: invalid \`type\'\n"); } } # end of Term::ReadLine::Gnu::XS::rl_generic_bind 1;