package main;
use User::Permissions;
use User::Permissions::Node;
use User::Permissions::Page;

my $up = User::Permissions->new(user_id => 1);
my $up_page = User::Permissions::Page->new;

warn "can read nodes" if User::Permissions::Node->read; # package call
warn "can read pages" if $up_page->read; # object call

# ... later ...
package Foo;
use User::Permissions;
use User::Permissions::Baz;

my $up = User::Permissions->new(user_id => 1);
warn "can write baz" if User::Permissions::Baz->write;