#!/usr/bin/perl

use XML::Simple ();
BEGIN { print(__PACKAGE__->can('XMLin') ? 1 : 0, "\n"); }  # 0

use XML::Simple;
BEGIN { print(__PACKAGE__->can('XMLin') ? 1 : 0, "\n"); }  # 1


package Other;
BEGIN { print(__PACKAGE__->can('XMLin') ? 1 : 0, "\n"); }  # 0

use XML::Simple;
BEGIN { print(__PACKAGE__->can('XMLin') ? 1 : 0, "\n"); }  # 1


package YetOther;
BEGIN { print(__PACKAGE__->can('XMLin') ? 1 : 0, "\n"); }  # 0

use XML::Simple qw( XMLout );
BEGIN { print(__PACKAGE__->can('XMLin') ? 1 : 0, "\n"); }  # 0

use XML::Simple qw( XMLin );
BEGIN { print(__PACKAGE__->can('XMLin') ? 1 : 0, "\n"); }  # 1


package main;  # Back to first package.
BEGIN { print(__PACKAGE__->can('XMLin') ? 1 : 0, "\n"); }  # 1