specialunderwear

! /usr/bin/perl                                                                                    
                                                                                                    
package render::primitives::manage_directory;                                                       
use lib '..';                                                                                       
use render::base::base;                                                                             
require utilities::directory;                                                                       
use strict;                                                                                         
                                                                                                    
our @ISA =('render::base::base');                                                                   
                                                                                                    
sub new{                                                                                            
  my $proto = shift;                                                                                
  my $class = ref($proto) || $proto;                                                                
                                                                                                    
  my $self = new render::base::base(@_);                                                            
  bless $self, $class;                                                                              
                                                                                                    
  return $self;                                                                                     
}                                                                                                   
                                                                                                    
sub area{                                                                                           
  my $self = shift;                                                                                 
  return $self->{area};                                                                             
}                                                                                                   
                                                                                                    
sub render{                                                                                         
  my $self = shift;                                                                                 
  $self->{_directory} = utilities::directory->new();                                                
  $self->{_directory}->path($self->{path});                                                         
                                                                                                    
  $self->{_directory}->wrap(qw(%s %s));                                                             
  print $self->{_directory}->open();                                                                
}                                                                                                   
1;