package image; sub load_img { new_from_file Gtk2::Gdk::Pixbuf "$::IMGDIR/$_[0]" # load_image Gtk2::Gdk::ImlibImage "$::IMGDIR/$_[0]" or die "$::IMGDIR/$_[0]: $!"; } @::black_img = load_img "b-01.png"; @::white_img = map +(load_img "w-0$_.png"), 1,2,3,4,5; $::shadow_img = load_img "shadow.png"; @::triangle_img = map +(load_img "triangle-$_.png"), qw(b w); @::square_img = map +(load_img "square-$_.png"), qw(b w); @::circle_img = map +(load_img "circle-$_.png"), qw(b w); $::board_img = load_img "woodgrain-01.jpg"; 1;